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CHECK  WITH  ALL  PLANES 
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APPENDIX  B.  LIST  OF  VARIABLES 


B.l.  FORTRAN  VARIABLES 


CCMO^  VARIABLES 


Veiriable  Description 
Name 


AWOC{) 

C0DES(,1) 

CX»ES(  ,2) 

CX»ES(,3) 

C(X'ES(,4) 

CRITA() 

CRITBO 

CRITG() 

CRITGN 

DIST(,JJ) 


D0WN( ) 

dsgr' 

ENDSO 
ENDSl 
ENDS2 
FCRIT( ) 

FDAY 

FFREQ 

FHTOT 

OTOABT 

JA() 

JJ 


JN() 

JRSC() 


array  containing  logical  WUC  designations 
WUC  number 

quantity  of  spares  in  POS 
quantity  of  spares  in  WRSK 
quantity  of  spares  in  BLSS 

probability  a  failure  is  an  air-to-air  critical  failure,  per  WUC 
probability  a  failure  is  a  dual  role  critical  failure,  per  MXl 
probability  a  failure  is  an  air-to-ground  critical  failure,  for 
each  WUC 

probability  a  failure  is  an  air-to-ground  nuclear  failure,  for  the 
system 

type  of  statistical  distribution  for  maintenance  task  ti-ines,  for 
each  WUC 

=  L  :  lognormal  distribution 
=  T  ;  triangular  distribution 
=  M  ;  normal  distribution 
=  U  :  uniform  distribution 

elapsed  time  critical  failures  will  be  fixed,  for  each  aircraft 
desired  SGR 

time  servicing  shift  or  current  shift  ends 
tijme  first  shift  ends 
time  second  shift  ends 

indicates  vduch  type  of  failure  needs  maintenance,  for  each 
aircraft 

number  of  flying  days  elapsed 

time  sorties  begin  after  start  of  each  shift 

total  number  of  flying  hours 

number  of  ground  aborts 

number  of  times  each  resource  was  available 
tenporary  variable,  represents  task  type 
=  1  ;  R&R,  remove  and  replace 
=  2  :  CND,  can  not  duplicate 
-  3  :  POM,  facilitate  other  maintenance 
=  4  ;  RIP,  repair  in  place 
=  5  ;  NRTS,  not  reparable  this  station 
=  6  ;  CCWD,  condemn  SRU 
=  7  :  BCOK,  bench  check  okay 
=  8  :  RTS,  repair  this  station 

=  9  ;  RRS,  remove  and  replace  in  shop,  for  LANTIRN 
=10  :  download  LANTIRN  pods 
number  of  times  each  resource  was  not  available 
quantity  of  each  resource  available  for  work 
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KRSC()  authorization  for  each  resource 

MAXWIJC  maxijTium  number  of  WUCs 

MISSN  type  of  mission  scenario 

MSDSOR  number  of  missed,  sorties 

MSP()  reserved  spares  for  maintenance,  which  has  begun,  for  each  WUC 

NBRK  counter  for  nuniber  of  breaks 

NDEP()  number  of  spares  going  to  depot,  for  each  WUC 

NQAY  day  counter  for  weeks 

NDCH^  ( )  donor  aircraft  number 

NFIX(I)  number  of  aircraft  breaks  fixed  in  two  hours 

NHX(2)  number  of  aircraft  breaks  fixed  in  four  hours 

NFIX(3)  number  of  aircraft  breaks  fixed  in  eight  hours 

NFIX(4)  number  of  aircraft  breaks  fixed  in  over  eight  hours 

NFI/IWN  number  of  sorties  flcwn 

NMDr( )  number  of  maintenance  events  which  contribute  to  downtime,  per  WUC 

NMRr( )  number  of  on-equipment  maintenance  events,  for  each  WUC 

NP  indicator  for  type  of  phase 

NPLANE  number  of  planes  possessed  by  squadron 

NPP  flying  hour  cycle  counter 

NRESC(,JJ)  number  of  different  types  of  resources  needed,  for  each  WUC 

NSFT  shift  intlicator 

NSORTY  number  of  sorties  to  fly  each  day 

NSPA( )  number  of  times  a  spare  was  available  vdien  needed,  for  each  WUC 

NSPARE()  quantity  of  each  spare  available,  for  each  WUC 
NSPR( )  quantity  of  spares  in  repair  cycle,  for  each  WUC 

NSPU()  nxjmber  of  times  a  spare  was  unavailable  vdien  needed,  for  each  WUC 

number  of  shJ.fts  each  dav 

PARA( )  number  of  parallel  maintenance  actions  currently  beinig  worked  on, 

for  each  aircraft 

PERCOT(,JJ)  probability  of  each  type  of  unscheduled  maintenance  task,  per  WUC 
PERCNT(2,)  probability  for  the  number  of  planes  that  fly  each  mission 

(2.1)  :  probability  of  1  ship  formation 

(2.2)  ;  probability  of  2  ship  formation 

(2.3)  :  probability  of  3  ship  fon^iation 

(2.4)  :  probability  of  4  ship  formation 
1.0-PERCNr(?,4)  ;  probability  of  5  ship  formation 

PERCNT(3,)  probability  fur  mission  type 

(3.1)  :  probability  of  air-to-air  mission 

(3.2)  ;  probability  of  air-to-ground  piissioii 

(3.3)  :  probability  of  dual  role  mission 

(3.4)  :  probability  of  air-to-ground  nuclear  mission 

PFIL( )  indicates  which  PM!  file  to  store  PMC  aircraft,  for  each  aircraft 

PMAINr(,,)  stores  new  failure  information  frcm  last  sortie,  for  each 

aircraft,  and  identification  of  failures 
(  ,  ,1)  ;  WUC  of  failed  item 
(  ,  ,2)  :  type  of  failure 

PWUC( , , )  stores  failure  information  for  each  aircraft,  and  for  each  failure 
kept  on  the  aircraft 

(  ,  ,1)  :  WUC  of  faiJed  item 
(  ,  ,2)  ;  type  of  failure 

QUAN(,JJ, )  quantity  of  each  resource  type  needed  for  each  task,  for  each  WUC, 
task  type,  and  five  types  of  resources 
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RESC(,JJ,) 


SCENE(l) 

SCENE(2^ 

SCENE(3) 

SCENE(4) 


SCOUNTO 

SFTO 

SFTl 

SFT2 

SMDT 

SMISS(l) 

SMISS(2) 

SMISS(3) 

SMISS(4) 

SMISS(5) 

SMISS(6) 

SNi®rr 

SORLEN 

SPA 

STDEV( , JJ) 
TABORr(l) ’ 
TFAIL{ ) 
TIMES {,JJ) 
TIMFLT 

TMAX(,JJ) 

TMMH() 
TPHASE( ) 

TPLANE(l) 


TWEEK 

V(l) 

V(2) 

V(3) 

WART-l 

WBRK( ) 

WCANN(,) 

W2ENE(1) 

WCENE(2) 

W2ENE(3) 

WCENE(4) 

WMOTO 

WMISS(l) 

WMISS(2) 


type  of  resources  required  for  each  task,  for  each  WUC,  task  type, 
and  five  types  of  resoxirces 
nurnber  of  planes  possessed 
number  of  sorties  desired  to  fly  each  day 
number  of  shifts  each  day 
scenario  type 

-  1  :  peacet.ijne  scenario 
=  2  :  surge  scenario 
=  3  :  sustained  scenctrio 
=  4  :  mobility  surge  in  peacetime 
daily  sortie  counter,  for  each  aircraft 
length  of  ser\''icing  shift 
length  of  first  shift 
length  of  second  shift 
accimulates  time  for  system  MDT 
sortie  lengtli 

length  of  first  shift  (servicing  shift) 

length  of  second  shift 

desired  sortie  generation  rate 

time  between  each  sortie 

time  between  first  and  second  sortie  phases 

accuimilates  number  of  system  downing  events 

length  of  each  sortie 

manpcwsr  spaces  per  aircraft 

standard  deviation  of  the  mean  task  l:ime,  for  each  WUC 
time  after  sorties  launch  to  check  i  r  ground  aborts 
failure  clock  for  total  correctiv'e  failures,  for  each  WUC 
mean  or  mode  time  of  each  task  (input) ,  for  each  V3UC 
length  of  time  to  begin  flying  sorties  after  beginning  of  each 
shift 

maximum  time  taken  for  each  task  (input) 
minimura  time  taken  for  each  task  (input) 
cumulative  MMH  times,  for  each  WUC 

cumulative  squadron  flying  hours  criteria,  used  to  determine  type 
of  phase  is  needed 

indicates  which  aircraft  is  being  simulated 
=  i  ;  F— i5E  simulation 

=  2  :  F-15C/D  MSIP  simulation,  used  for  validation  purposes 
time  the  vreek  ends 

allocation  of  people  at  beginning  of  shift 
availability  of  people  when  asked  for 
availability  of  support  equipnent  when  asked  for 
time  warmup  ends 
break  counter,  for  each  WUC 

WUC  that  was  cannibalized,  and  is  now  needed,  for  each  aircraft 

number  of  planes  possessed  in  warmup  scenario 

nurriber  of  30x1:305  desired  to  fly  each  day  in  warmup  scenario 

number  of  shifts  each  day  .iji  warmup  scenario 

scenario  type  in  warmup  scenario 

cumulative  down  times,  for  each  WUC 

sortie  length  in  warmup  scenario 

length  of  first  shift  in  warmup  scenario 
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WMISS{3) 

WMISS(4) 

WMISS(5) 

VMISS(6) 

WRESC(,) 

XBRK(l) 

XBRK(2) 

XBRK(3) 

X3RK(4) 

XWn?BM() 

YMRT() 


length  of  second  shift  in  warmup  scenario 
time  warmup  ends  and  new  scenario  begins 
time  between  each  sortie  in  warmup  scenario 
time  between  sorti.e  phases  in  warmup  scenario 
type  of  resource  that  was  freed,  for  each  aircraft 
given  an  air-to-air  critical  failure,  the  probability  a  break 
occurred 

given  an  air-to-ground  critical  failure,  the  probability  a  break 
occiorred 

given  a  dual  role  critical  failure,  the  probability  a  break 
occurred 

given  an  air-to-ground  nuclear  critical  failure,  the  probability  a 
break  occurred 

MTBM  total  corrective,  for  each  WUC 
mean  repair  time,  for  each  WUC 


B.1.2.  VARIABLES 


Variable  Description 

Name 


ADJUST 

FHGA 

JADJ 

JHE 

JIIELP7 

JHELP25 

JJ 

JPl 

JP2 

JP3 

JP4 

JP5 

JPX() 

KHE 

KHELP7 

‘LarcTT  r»Oc 
XU  it  a  yc  ^ 

L() 

LHE 

L1HELP7 

IiIEIiP25 

Ml 

MHE 

MiIELP7 

MUELP25 

MYES 

N() 

NA 

NAC 

NADJ 

NB 

NB 


elapsed  time  used  in  fix  rate  or  down  time  calculation 

flying  hour  increment  used  to  check  for  ground  abort  (atrib(27)) 

differentiates  between  KRSC( )  resource  codes 

quantity  of  first  type  of  7  level  resource  available 

quantity  of  first  resource  7  (452AX-7  level)  available 

quantity  of  first  resource  25  (451CX-7  level)  available 

type  of  task  being  done  (atrib(13)) 

resource  code  number  for  first  resource  needed 

resource  code  number  for  second  resource  needed 

resource  code  number  for  third  resource  needed 

x'esource  code  number  for  fourth  resoiuce  needed 

resource  code  number  for  fifth  resource  needed 

temporary  storage  curay  for  resource  code  number 

quantity  of  second  type  of  7  level  resource  available 

quantity  of  second  resource  7  (452AX-7  level)  available 

quantity  of  second  resource  25  {451CX--7  lerel)  available 

storage  array  for  liangar  queen  WUCs 

quantity  of  third  type  of  7  level  resource  available 

qiantity  of  third  resource  7  (452AX-7  level)  available 

qucintity  of  third  resource  25  (451CX-7  level)  available 

storage  indicator  for  cannibalization 

quantity  of  fourth  type  of  7  level  resource  available 

quantity  of  fourth  resource  7  (452AX-7  level)  available 

quantity  of  fourth  resource  25  (451QC-7  level)  available 

ground  abort  indicator 

storage  array  for  types  of  resources  freed 
quantity  of  air-to-air  critical  failures 
aircraft  number  (atrib(l)) 

differentiates  between  first  and  second  shift  resource  codes 
in  ALDOK,  none  critical  or  pmc  queue  indicator  (atrib(12)) 
in  CHCKE,  quantity  of  dual  role  critical  failures 
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NDCWOR 

NF 

NFIF<ST 

NFORM 

NFORMQO 

NG 

NC3J 

NHE 

NHELP7 

NHELP25 

Nil 

NJ 

NN 

NNODE 

NNON 

NC»1 

NPl 

NP2 

NP3 

NP4 

NP5 

NPX( ) 

NS() 

NUKP 

NWUC 

NQ 

NQ 

TDEL 

TDELTA. 

TEMPIO 

'I'EMP2() 

TMFL.T 

TPRE 

ITORDO 


in  subroutine  cann,  indj.cates  vdiich  aircraft  is  the  donor 
pnc  file  for  the  aircraft  (pfil{nac)) 
quantity  of  aircraft  to  fly  diuring  each  shift 
quantity  of  aircraft  to  fly  together 

quantity  of  aircraft  to  remove  frcm  file  to  begin  sortie 
quantity  of  air-to-ground  critical  failures 
quantity  of  air-to-ground  nuclear  critical  failures 
quantity  of  fifth  type  of  7  level  resource  available 
quantity  of  fifth  resource  7  (452AX-7  level)  available 
quantity  of  fifth  resource  25  (451CX-7  level)  available 
location  in  queue  of  acceptor  aircraft  for  cann 
differentiates  between  first  and 
quantity  of  sorties  flown  that  day  so  fcir 
SLAM  network  node  to  return  to  (atrib(lO)) 
quantity  of  non  critical  failures 
resource  not  available  indicator 
quantity  of  first  resource  reeded  for  the  task 
quantity  of  second  resource  needed  for  the  task 
quantity  of  third  resouixe  needed  for  the  task 
quantity  of  fourth  resource  needed  for  the  task 
quantity  of  fifth  resource  needed  for  the  task 
tenporary  storage  array  for  quantity  of  resource 
tenporary  storage  array  for  speures  quantities 
quantity  of  tasks  stored  in  PMAINr( ) 

WUC  being  vorked  on  (atrib(5)) 

in  CANN,  locatiuri  (file)  of  donor  aircraft 

in  CLEAN,  quantity  in  queue 

logistics  delay  time 

time  since  last  preflight  or  BPO 

tenporary  storage  array  for  PMAINT(,,1) 

tenporary  storage  array  for  PMAINT(,,2) 

time  from  TNCW  the  sortie  will  launch 

time  from  TOCW  the  preflight  will  begin 

tenoporary  storage  for  atributes 


B.2.  SLAM  VARIABLES 


B.2.1.  ATTRIBUTES 


Attribute  Description 

1  aircraft  number 

2  failure  flag 

3  time  repair  began 

4  delayed  sortie  indicator,  linked  to  entities,  not  aircraft 
or,  duplicate  MC  indicator 

5  WUC  being  worked  on 

6  PM3  queue  to  file  plane  into 

7  this  shift  repair  tijme 

8  MMH  counter 

9  task  time  left  over  for  next  shift 

10  network  enter  node  t,o  return  to 


11  rates  iiidicator,  aircraft  has  no  part  to  sent  to  shop 

=  1  ;  only  one  part  missing 
=  2  :  more  than  one  part  missing 

12  none  critical  or  pmc  queue  indicator 

13  type  of  work  being  done 

14  replace  tine  from  R&R  time 

15  multiple  failure  indicator 

16  thruflight  indicator 

=  1  :  turnaround  indicator 

=11  ;  BPO  indicator 

17  manpower,  equipment,  spare  not  available  indicator 

18  shop  indicator 

=  1  ;  shop  needed  indicator 

=  ].l  ;  depot  will  occur 
=  88  ;  depict  spiare  return 

19  sortie  shop  formation  quantity 

20  lAWTIRN  R&R  in  shop  indicator 

21  BPO  time  indicator  for  preflight 

22  cannibalization  indicator 

23  hangcir  queen  timer 

24  type  of  mission  being  flown, 

=  1  :  air  to  air  mission 
=  2  :  air  to  ground  mission 
=  3  :  dual  role  mission 
=  4  t  air  to  ground  nuclear  mission 

25  quantity  of  resource  taken  fron  resource  7  Icr.’el  452AX 

26  quantity  of  resource  taken  frem  resource  7  level  451CX 

27  ground  abort  flying  hour  indicator 

28  ground  abort  type  failvire  indicator 


B.2.2.  GbOBAL  VARIABLES 


Variable  Description 


1 

2 

3 

4 

5 

21-50 

51-100 


dead  time  indicator 

number  of  planes  needing  cann  for  sortie  to  fly  ???? 

end  of  shift  indicator  for  PIC  maintenance 

last  flight  of  the  day  indicator 

break  pier  sortie  indicator 

probability  of  pieople  availability 

probability  of  support  equipment  availability 


B.3.  FILES 


File 


Description 


1 

2 

3 

4 


queue  for  planes  needing  preflight 
readi^  queue  for  FIC  planes 
waiting  for  resources  queue 
sortie  queue 


B-7 


5  wait  queue  for  next  day  maintenance 

6  wait  queue  for  donor  for  29  day  old  hangar  queen 

7  not  mission  capable  due  to  supply  queue 

8  air-to-air  and  air-to-ground  PMC  queue  (air-to-ground  nuclear 
failures) 

9  air-to-air"  PMC  queue  (air-to-ground  and  air-to-ground  nuclear 
failures ) 

10  air-to-ground  PMC  queue  (air-to-aii:  and  air-to-ground  nuclear 

failures) 

li.  non-critical  FMC  queue 

12  wait  queue  for  equipment  due  to  availability 

13  wait  queue  for  shop  resoutoes 

14  wait  queue  for  next  day  shop  maint 

15  wait  queue  for  shop  equipment  due  to  availability 

16  phase  FMC  queue 

17  cann  aircraft  queue 

18  queue  for  subroutine  parap  to  get  entities  in  fifo  order 

19  preflight  queue  for  PIC  aircraft 

20  meniory  queue  for  maintenance  times /entities 

21  duplication  queue  for  nmcr 

22  duplication  queue  for  nmcs 


B-8 


THIS  PAGE  INTEMTICmiLY  LEFT'  BTANK 


i 


APPENDIX  C.  CCMPUTER  CCDE  -  INPUT  FILES 


C-1 


mis  PA3E  INTEMTIONALLY  LEFT  BLMJK 


APPENDIX  C.  Computer  Code  -  Input  Files 


C.l.  F15EM.INP 


wuc 

MTBMTC  ( 

not  used 

) 

spares  break  prob 

pos  wrsk 

blss 

a/ a  a/g  dual 

★  ★★★★ 

(beginning  of 

file) 

TURN 

0.0 

0.0 

0.0 

0.0 

0 

0 

0  0.00  0.00  0.00 

PREFL 

0.0 

0.0 

0.0 

0.0 

0 

0 

0  0.00  0.00  0.00 

BPO 

0.0 

0.0 

0.0 

0.0 

0 

0 

0  0.00  0.00  0.00 

HPOl 

0.0 

0.0 

0.0 

0.0 

0 

0 

0  0.00  0.00  0.00 

HP02 

0.0 

0.0 

0.0 

0.0 

0 

0 

0  0.00  0.00  0.00 

HP03 

0.0 

0.0 

0.0 

0.0 

0 

0 

0  0.00  0.00  0.00 

PEI 

0.0 

0.0 

0.0 

0.0 

0 

0 

0  0.00  0.00  0.00 

PE2 

0.0 

0.0 

0.0 

0.0 

0 

0 

0  0.00  0.00  0.00 

ZEROI 

0.0 

0.0 

0.0 

0.0 

0 

0 

0  0.00  0.00  0.00 

ZER02 

0.0 

0.0 

0.0 

0.0 

0 

0 

0  0.00  0.00  0.00 

1100 

141.3 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

11A09 

906.4 

350.0 

350.0 

310.0 

1 

1 

1  0.00  0.00  0.00 

ILAB 

184.4 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00  0.00 

llADE 

5438.7 

100.0 

100 . 0 

75.0 

1 

1 

1  0.00  0.00  0.00 

ILAF 

10877.3 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.00 

llAJS 

69.7 

160.0 

160.0 

140.0 

1 

1 

1  0.00  0.00  0.00 

IIB 

2175.5 

160.0 

]6n.o 

130.0 

1 

1 

1  0.00  0.00  0.00 

IIDOD 

1553.9 

550.0 

550.0 

520.0 

1 

1 

1  0.00  0.50  0.00 

IIDGJ 

47.7 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.25 

IIDK 

326.2 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

IIDRT 

10877.3 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

11G09 

2919.3 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

IIGA 

988.8 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.00 

IIGBF 

2175.5 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.09 

IIGGK 

375.1 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.00 

IIGQS 

37.8 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.40 

IIJ 

5438.7 

160.0 

160.0 

130.0 

1 

1 

1  0.00  0.00  0.00 

IIK 

5438.7 

100.0 

100.0 

70.0 

1 

]. 

1  0.00  0.00  1.00 

IIPA 

181.3 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.00 

IIPD 

181.3 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.00 

IIPHP 

294.0 

160.0 

160.0 

140.0 

1 

1 

1  0.00  0.00  0.00 

ilX 

988.8 

150.0 

150.0 

115.0 

1 

1 

1  0.00  0.00  0.00 

IIZ 

2719.3 

160.0 

160.0 

130.0 

1 

1 

1  0.00  0.00  0,00 

120 

2719.3 

200.0 

200.0 

160.0 

] 

1 

1  0.00  0.00  0.00 

12A 

326.2 

400.0 

400.0 

350.0 

1 

1 

1  0.00  0.00  0.00 

12C0A 

96.3 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  1.00 

12CB 

679.8 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

12CC 

10877.3 

70.0 

70.0 

50.0 

1 

1 

1  0.00  O.OC  0.00 

12CE 

1208.6 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

12CF 

1087.7 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

12E09 

259.0 

350.0 

350.0 

310.0 

1 

1 

1  0.00  0.00  0.00 

12EA 

326.2 

350.0 

350.0 

310.0 

1 

1 

1  0.00  0.00  0.00 

12EBH 

3635.8 

350.0 

350.0 

310.0 

1 

1 

1  0.0'  0.00  0.00 

C-2 

12X 

3625.8 

350.0 

350.0 

310.0 

1 

1 

1  0.00  0.00  0.00 

1300 

836.7 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0,00  0,00 

13A0 

572.5 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.00 

13A4B 

169.9 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.00 

13ACD 

160.0 

150.0 

150.0 

115.0 

1 

1 

1  0.00  0.00  0.00 

13AEF 

604.3 

160.0 

160.0 

130.0 

1 

1 

1  0.00  0.00  0.00 

13AG 

1087.7 

100.0 

100.0 

70.0 

1 

1 

1  0.00  0.00  0.00 

13 AH 

326.2 

200.0 

200.0 

160.0 

1 

1 

1  0.00  0.00  1.00 

13AK 

25.1 

400.0 

400.0 

350.0 

3 

2 

1  0.00  0.00  0,08 

13AL 

1208.6 

550.0 

550.0 

520.0 

1 

1 

1  0.00  0.00  0.00 

13AXY 

1359.7 

350.0 

350.0 

320.0 

1 

1 

1  0.00  0.00  0.00 

13B0B 

472.9 

350.0 

350.0 

310.0 

1 

1 

1  0.00  0.00  0.00 

13BC 

2175.5 

350.0 

350.0 

310.0 

1 

1 

1  0.00  0.00  0.00 

13BD 

1087.7 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

13BEG 

302.1 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00  0.00 

13BJ 

54.4 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.00 

13HKQ 

5438.7 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.00 

13CA 

1359.7 

200.0 

200.0 

170.0 

1 

1 

1  0.00  0.00  0.00 

13CC 

1208.6 

200.0 

200.0 

175.0 

1 

1 

1  0.00  0.00  0.00 

13CDF 

2719.3 

150.0 

150.0 

115.0 

1 

1 

1  0.00  0.00  0.00 

13CG 

5438.7 

160.0 

160.0 

130.0 

1 

1 

1  0.00  0.00  0.00 

13DOC 

271.9 

100.0 

100.0 

70.0 

1 

1 

1  0.00  0.00  0.00 

13DD 

326.2 

100.0 

100.0 

70.0 

1 

1 

1  0.00  0.00  0.00 

13DE 

326.2 

100.0 

100.0 

70.0 

1 

1 

1  0.00  0.00  0.00 

13E 

10877.3 

350.0 

350.0 

320.0 

1 

1 

1  0.00  0.00  1.00 

13F09 

2175.5 

350.0 

350.0 

ilO.O 

1 

1 

1  0.00  0.00  0.00 

13FA 

326.2 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

13FBC 

10877.3 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

13H 

639.8 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

13K 

10877.3 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

13L 

2719.3 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

1400 

1359.7 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

14A09 

1812.9 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

14AA 

310.8 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.00 

14AB 

326.2 

100.0 

100.0 

75.0 

1 

1 

1  O.CO  0.00  1.00 

14AC 

213.3 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.00 

14ADE 

2'’19.4 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.00 

14AF 

326.2 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.00 

14AU 

10877.3 

100.0 

100.0 

75.0 

1 

1 

1  0.00  0.00  0.00 

14B 

5438.7 

200.0 

200.0 

170.0 

1 

1 

1  0.00  0.00  0.00 

14CA 

153.2 

200.0 

200.0 

170.0 

1 

1 

1  0.00  0.00  0.00 

14CB 

5438.7 

200.0 

200.0 

175.0 

1 

1 

1  0.00  0.00  0.00 

14CD 

388.5 

150.0 

150.0 

115.0 

1 

1 

1  0.00  0.00  0.00 

14D0A 

109.9 

160.0 

160.0 

130.0 

1 

1 

1  0.00  0.00  0.00 

14DB 

3625.8 

100.0 

100,0 

70.0 

1 

1 

1  0.00  0.00  0.00 

14DC 

10877.3 

200.0 

200.0 

160.0 

1 

1 

1  0.00  0.00  0.00 

14DD 

1812.9 

400.0 

400.0 

350.0 

1 

1 

1  0.00  0.00  0.00 

14EOA 

1359.7 

150.0 

150.0 

100.0 

1 

1 

1  0.00  0.00  0.00 

14EB 

1208.6 

3.50.0 

350.0 

310.0 

1 

1 

1  0.00  0.00  0.00 

14ED 

10877.3 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

14G 

543.9 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00  0.00 

14H0A 

766.9 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00  0.00 

C-3 


14HB 

725.2 

100.0 

100.0 

75.0 

1 

1 

1 

0.00  0.00  0.00 

14P 

5438.7 

100.0 

100.0 

75.0 

1 

1 

1 

0.00  0.00  0.00 

14X 

5438.7 

100.0 

100.0 

75.0 

1 

1 

1 

0.00  0.00  0.00 

2300 

988.8 

200.0 

200.0 

175.0 

1 

1 

1 

0.00  0.00  0.00 

2310A 

253.0 

150.0 

150.0 

115.0 

1 

1 

1 

0.00  0.00  0.00 

231B 

1553.9 

100.0 

100.0 

70.0 

1 

1 

1 

0.00  0.00  0.00 

231D 

5438.7 

200.0 

200.0 

160.0 

1 

1 

1 

0.00  0.00  0.00 

231F 

145.0 

400.0 

400.0 

350.0 

1 

1 

1 

0.00  0.00  0.00 

231H 

905.4 

150.0 

150.0 

100.0 

1 

1 

1 

0.00  0.00  0.00 

23IM 

326.2 

150.0 

150.0 

100.0 

1 

1 

1 

0.00  0.00  0.00 

23A 

113.3 

350.0 

350.0 

320.0 

1 

1 

1 

0.00  0.00  0.00 

23B0K 

435.1 

70.0 

70.0 

50.0 

1 

1 

1 

0,00  0.00  0.00 

23BP 

10877.3 

70.0 

70.0 

50.0 

1 

1 

1 

0.00  0.00  0.00 

23C 

3625.8 

70.0 

70.0 

50.0 

1 

1 

1 

0.00  0.00  0.00 

23E 

2719.3 

350.0 

350.0 

310.0 

1 

1 

1 

0.00  0.00  0.00 

23F 

87.0 

120.0 

120.0 

90.0 

1 

1 

1 

0.00  0.00  1.00 

23G 

2719.3 

100.0 

100.0 

75.0 

1 

1 

1 

0.00  0,00  0.00 

23HA 

247.2 

200.0 

200.0 

170.0 

1 

1 

1 

0.00  0.00  0.00 

23HC 

1087.7 

200.0 

200.0 

170.0 

1 

1 

1 

0.00  0.00  1.00 

2  SHE 

5838.7 

200.0 

200.0 

170.0 

1 

1 

1 

0.00  0.00  0.00 

2  SHF 

418.4 

200.0 

200.0 

170.0 

1 

1 

1 

0.00  0.00  0.00 

2SHJ 

3625.8 

200.0 

200.0 

170.0 

1 

1 

1 

0.00  0.00  0.00 

23  J 

1812.9 

100.0 

100.0 

70.0 

1 

1 

1 

0.00  0.00  0.00 

2  SKA 

1087.7 

200.0 

200.0 

160.0 

1 

1 

1 

0.00  0.00  0.00 

23KR 

3812. 9 

200.0 

2C0.0 

160.0 

1 

1 

1 

0.00  0.00  0.00 

25KC 

518.0 

200.0 

200.0 

160.0 

1 

1 

1 

0.00  0.00  0.00 

23P 

10877.3 

350.0 

350.0 

320.0 

1 

1 

1 

0.00  0.00  0.00 

23Q 

217.5 

350.0 

350.0 

310.0 

1 

1 

1 

0.00  0.00  0,00 

23U 

10877.3 

70.0 

70.0 

50.0 

1 

1 

1 

0.00  0.00  0.00 

23X 

10877.3 

70.0 

70.0 

50.0 

1 

1 

1 

0.00  0.00  0.00 

23Z 

53.1 

350.0 

350.0 

310.0 

1 

1 

1 

0.00  0.00  0.00 

24A 

83.7 

100.0 

100.0 

75.0 

2 

1 

1 

0.00  0.00  0.00 

24B0D 

435.1 

100.0 

100.0 

70.0 

1 

1 

1 

0.00  0.00  1.00 

24BE 

326.2 

100.0 

100.0 

70.0 

1 

1 

1 

0.00  0.00  0.00 

24BF 

326.2 

100.0 

100.0 

70.0 

1 

1 

1 

0.00  0.00  0.00 

24C 

3625.8 

200.0 

200.0 

160.0 

1 

1 

1 

0.00  0.00  0.00 

24D 

163.1 

150 . 0 

150.0 

100 .0 

1 

1 

1 

u.uu  u.uu  i.uu 

24F 

10877.3 

]50.0 

150.0 

100.0 

1 

1 

1 

0.00  0.00  0.00 

24X 

1359.7 

150.0 

150.0 

100.0 

1 

1 

1 

0.00  0.00  0.00 

33 

5438.7 

150.0 

150.0 

100.0 

1 

1 

1 

0.00  0.00  0.00 

41A3 

10877.3 

70.0 

70.0 

50.0 

1 

1 

1 

0.00  0.00  0.00 

41AA 

326.2 

70.0 

70.0 

50.0 

1 

1 

1 

0.00  0.00  0,00 

41AB 

326.2 

70.0 

70.0 

50.0 

] 

1 

1 

0.00  0.00  0.00 

41AC 

326.2 

70.0 

70.0 

50.0 

1 

1 

1 

0.00  0.00  0.00 

4  LADE 

1087.7 

70.0 

70.0 

50.0 

1 

1 

1 

0.00  0.00  1.00 

4 1C 

5438.7 

70.0 

70.0 

50.0 

1 

1 

1 

0.00  0.00  0.00 

41X 

3625.8 

120.0 

120.0 

90.0 

1 

1 

1 

0.00  0.00  0.00 

42A0D 

329.6 

100.0 

100.0 

75.0 

1 

1 

1 

0.00  0.00  0.75 

42AF 

725.2 

100.0 

100.0 

75.0 

1 

1 

1 

0.00  0.00  0.00 

42AH 

10877.3 

100.0 

100.0 

75.0 

1 

1 

1 

0.00  0.00  0.00 

42BA 

99999.9 

100.0 

100.0 

75.0 

1 

1 

1 

0.00  0.00  0.00 

42BB 

99999.9 

100.0 

100.0 

75.0 

1 

1 

X 

0.00  0.00  0.00 

C-4 


42BC 

326.2 

100.0 

100.0 

75.0 

1 

1 

1  0.00 

0.00  0.00 

42C0B 

99999.9 

200.0 

200.0 

170.0 

1 

1 

1  0.00 

0.00  0.00 

42CC 

326.2 

200.0 

200.0 

170.0 

1 

1 

1  0.00 

0.00  0.00 

42CC« 

1087.7 

200.0 

200.0 

170.0 

1 

1  0.00 

0.00  0.00 

42CJ 

326.2 

200.0 

200.0 

170. U 

1 

1 
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70.0 

50.0 

1 

1 

1  0.00  0.00 

0.00 

75H 

205.2 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00 

0.00 

75  J 

10877.3 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00 

0.00 

75M 

176.3 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.67 

75N 

10877.3 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

75P 

326.2 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

75R 

10877,3 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

75X 

10877.3 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

76A 

27.9 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.40 

76B 

725.2 

120.0 

120.0 

90.  U 

1 

1 

1  0.00  0.00 

0.00 

76C 

326.2 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

76E 

5438.7 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

76F 

5438.7 

120.0 

120.0 

90.0 

1 

1 

1  0.08  0.50 

0.50 

76G0A 

418.3 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00 

0.00 

76GE 

10877.3 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00 

0.00 

76GF 

518.0 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00 

0.00 

76GQ 

326.2 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00 

0.00 

76H 

56.4 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00 

0.00 

76J 

10877.3 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

76K0A 

81.2 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00 

0.00 

n  /T  ?/•/-» 

70.0 

TO  n 

50.0 

1 

1 

1  0:00  0.00 

0.00 

/  Ui\V^ 

^ 

f  •  V 

•“ 

76KDG 

5438.7 

70.0 

70.0 

50.0 

1 

1 

1  0.00  0.00 

6.00 

76LA 

326.2 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

76LB 

326.2 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

76LCD 

99999.9 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

76LE 

326.2 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

76LF 

99999.9 

120.0 

120.0 

90.0 

1 

1 

1  0.08  0.50 

0.50 

VGLG 

326.2 

320.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0,00 

76m 

326.2 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

76LJK 

99999.9 

120.0 

120. 0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

76LL 

326.2 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

76LM 

326.2 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

76X 

10877.3 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

82A 

163.1 

70. 0 

70.0 

50.0 

1 

1 

1  0.00  0.00 

0.00 

91 

3625.8 

120.0 

120.0 

90.0 

1 

1 

1  0.00  0.00 

0.00 

97A 

836.7 

120 . 0 

120.0 

C-8 

90.0 

1 

1 

1  0.00  0.00 

0.00 

74NXY 

81.5 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74PX2 

326.2 

70.0 

70.0 

60.0 

2 

1 

0.00 

0.00 

0.00 

74N00 

101.8 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74NA0 

763.7 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74NB0 

1527.5 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74ND0 

127.3 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74NE0 

254.6 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74NF0 

1527.5 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74NG0 

305.5 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74NH0 

509.2 

70.0 

70.0 

50.0 

2 

1 

0.00 

1.00 

0.00 

74NJ0 

84.9 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74P00 

439.3 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74PA0 

1317.9 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74PB0 

146.4 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74PC0 

1317.9 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74PD0 

1317.9 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74PE0 

1317.9 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74PF0 

1317.9 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74PG0 

1317.9 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74PH0 

164.7 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74PK0 

659.0 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74PL0 

219.7 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74PN0 

659.0 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

74P99 

1317.9 

70.0 

70.0 

50.0 

2 

2 

1 

0.00 

1.00 

0.00 

*****  (end  ot  file) 


C.2.  FiSE'r.INP 


WUC  task  prob  mean  sd  nun  max  dist  AFSC  codes  and  quantity 
*****  (beginning  of  file) 


TURN 

R&R 

.00 

0.4 

.10 

0.3 

0.5 

T 

452A4 

1 

TURN 

CND 

.00 

0-7 

.17 

0.5 

0.8 

T 

452A4 

2 

461E0 

1 

TURN 

FOIi 

.00 

1.5 

.25 

1.2 

1.8 

T 

452A4 

o 

461E0 

] 

PREFL 

R&R 

.50 

0.5 

.25 

.0 

.0  T 

452A4 

1 

PREFL 

CND 

1.00 

0.5 

.25 

.0 

.0 

T 

452A4 

1 

BPO 

R&R 

.19 

2.3 

.25 

.0 

.0 

T 

452A4 

1 

BPO 

aro 

.78 

2.3 

.25 

.0 

.0 

T 

452A4 

1 

BPO 

FOM 

.97 

2.3 

.25 

.0 

.0 

T 

452A4 

1 

BPO 

RIP 

1.00 

2.3 

.25 

.0 

.0 

T 

452A4 

1 

HPOl 

R&R 

.00 

31.6 

1.00 

.0 

.0 

T 

452E7i 

3 

454EA 

1 

458E1 

1 

452A5 

1 

454C4 

1 

HP02 

R&R 

.00 

47.4 

1.0 

.0 

.0 

T 

452EA 

3 

454EA 

1 

458E2 

1 

452A5 

1 

454C4 

1 

HP03 

R&R 

.00 

63.2 

1.00 

.0 

.0 

T 

452EA 

3 

454EA 

1 

458E3 

1 

452A5 

1 

ARMAG 

1 

PEI 

R&R 

.00 

94.8 

1.00 

.0 

.0 

T 

452FA 

3 

454EA 

1 

458E2 

1 

452A5 

1 

454C4 

1 

PE2 

R&R 

.00 

160.0 

1.00 

.0 

.0 

T 

452EA 

5 

454EA. 

1 

458E2 

1 

452A5 

1 

ARMAG 

1 

ZEROl 

P^R 

.00 

0.0 

.0 

.0 

.0 

T 

00000 

0 

ZER02 

R&R 

.00 

0.0 

.0 

,0 

.0 

T 

00000 

0 

1100 

RIP 

1.00 

1.7 

.84 

0.6 

2.5 

T 

458A2 

1 

452A4 

1 

1100 

RTS 

1.00 

2.0 

.00 

1.9 

2.1 

T 

458E0 

1 

11A09 

R£iR 

.14 

1.2 

1.82 

0.3 

6.0 

11A09 

CND 

.29 

1.2 

1.82 

0.3 

6.0 

11A09 

FCM 

.30 

1.2 

1.82 

0.3 

6.0 

11A09 

RIP 

.57 

1.2 

1.82 

0.3 

6.0 

11A09 

RTS 

1.00 

4.5 

5.22 

2.0 

16.0 

llAB 

R&R 

.13 

3.1 

3.67 

0.1 

12.7 

llAB 

FOM 

.13 

3.1 

J.67 

0.1 

12.7 

llAB 

RIP 

.87 

3.1 

3.67 

0.1 

12.7 

llAB 

RTS 

1.00 

4.5 

5.22 

2.0 

16.0 

llADE 

RIP 

1.00 

0.5 

0.05 

0.5 

0.6 

llAF 

RIP 

1.00 

1.0 

.00 

0.9 

1.1 

llAJS 

R&R 

.03 

0.3 

.40 

0.1 

2.0 

llAJS 

FCM. 

.24 

0.3 

.40 

0.1 

2.0 

ILAJS 

RIP 

.97 

0.3 

.40 

0.1 

2.0 

11A7S 

RTS 

1.00 

4.5 

5.22 

2.0 

16.0 

IIB 

RIP 

1.00 

0.7 

.28 

0.5 

0.9 

IIDOD 

FCM 

.25 

2.5 

2.60 

2.5 

8.0 

IIDOD  RIP 

1.00 

2.5 

2.60 

2.5 

8.0 

IIDOD  RTS 

.00 

0.0 

0.00 

0.0 

0.0 

IIDGJ 

R&R 

.00 

0.3 

.78 

0.3 

1.8 

IIDGJ 

FOM 

.13 

0.1 

.49 

0.1 

2.2 

IIDGJ 

RIP 

1.00 

0.1 

.49 

0.1 

2.2 

1  IIDGJ 

DCOK 

.00 

4.3 

4.97 

0.3 

21.9 

IIDGJ 

RTS 

.00 

4.3 

4.97 

0.3 

2]  .9 

IIDGJ 

NRTS 

.00 

4.3 

4.97 

0.3 

21.9 

IIDK 

R&R 

.00 

0.3 

.78 

0.3 

1.8 

IIDK 

FOM 

.00 

0.3 

.78 

0.3 

1.8 

IIDK 

RIP 

1.00 

0.3 

.07 

0.2 

0.3 

IIDK 

BCOK 

.00 

4.3 

4.97 

0.3 

21.9 

IIDK 

RTS 

.00 

4.3 

4.97 

0.3 

21.9 

IIDK 

NRTS 

.00 

4.3 

4.97 

0.3 

21.9 

IIDRT 

R&R 

.00 

0.3 

.78 

0.3 

1.8 

IIDRT  FOM 

.00 

0.3 

.78 

0.3 

1.8 

IIDRT 

RIP 

1.00 

0.1 

.54 

0.1 

2.4 

IIDRT 

BCOK 

.00 

4.3 

4.97 

0.3 

21.9 

IIDRI' 

RTS 

.00 

4.3 

4.97 

0.3 

21.9 

IIDRT 

ITRIS 

r\r^ 

-  UU 

4.3 

A  0"7 

0.3 

21.9 

11G09 

CND 

.34 

0.5 

.26 

0.3 

1.0 

liG09 

RIP 

.66 

0.5 

.26 

0.3 

1.0 

IIGA 

RIP 

1.00 

0.3 

.60 

0.3 

2.0 

IIGA 

rOM 

0.00 

0.3 

.60 

0.3 

2.0 

IIGA 

R&R 

0.00 

0.3 

.60 

0.3 

2.0 

IIGA 

RTS 

0.00 

0.0 

.00 

0.0 

0.0 

IIGBF 

RIP 

1.00 

3.2 

1.50 

1.0 

8.0 

IIGBF 

RTS 

0.00 

0.0 

0.00 

0.0 

0.0 

IIGGK 

FOM 

.04 

3.8 

2.94 

0.5 

8.0 

IIGGK 

RIP 

1.00 

3.8 

2.94 

0.5 

8.0 

llGGK 

RTS 

.00 

0.0 

0.00 

0.0 

0.0 

iiGQS  aro 

.02 

0.1 

.77 

0.1 

1.9 

1102S  FOM 

.32 

0.1 

.77 

0.1 

1.9 

IIGQS  RIP 

.98 

0.1 

.77 

0.1 

1.9 

T  458A2  1 
T  458A2  1 
T  458A2  1 
T  458A2  1 
T  458E2  1 
L  452AA  1 
L  452A4  2 
L  458A2  1 
T  458E0  1 
T  452A4  2  458A2  1 

T  458A2  1  452EA  2  452A5  1  452AB  1  423E1  1 
T  452A4  2 
T  452A4  2 
T  452A4  2  458A2  1 
T  458E0  1 
T  452A4  1 
T  458A2  1  454C3  1 
T  458A2  1 
T  454C3  1  458E2  1 
T  452A4  1 
T  452A4  1 
T  452A4  1  458A2  1 
L  452A4  1 
L  458E0  1 
L  458E0  1 
T  45ZA4  1 
T  452A4  i 
T  452A4  1  458A2  1 
L  452A4  3 
L  458E0  1 
L  458E0  1 
T  452A4  1 
T  452A4  1 
T  452A4  1  456A2  1 
L  452A4  1 
L  458E0  1 
E  458E0  1 
T  458A2  1 
T  458A2  1 
T  458A2  1 
T  452A4  1 
T  452A4  1 
T  458E2  1 
L  458A2  1 
L  458E2  1 
T  452A4  1  458A2  1 
T  452A4  1  458A2  1 
T  458E2  1 
T  452A4  1  458A2  1 
T  452A4  1 
T  452A4  1  458A2  1 


C-10 


IIJ 

R&R 

1.00 

1.5 

.71 

1.0 

2.0 

T 

458A2 

1 

IIJ 

FCM 

.50 

1.5 

.71 

1.0 

2.0 

T 

458A2 

1 

IIJ 

BOOK 

.24 

4.3 

4.97 

0.3 

21.9 

L 

458E2 

1 

IIJ 

RTS 

.58 

4.3 

4.97 

0.3 

21.9 

L 

458E2 

3 

IIJ 

NRTS 

.18 

4.3 

4.97 

0.3 

21.9 

L 

458E2 

1 

IIK 

R6<R 

.01 

0.1 

1.56 

0.1 

10.0 

T 

458A2 

1 

452A4 

1 

IIK 

CND 

.01 

0.1 

1..56 

0.1 

10.0 

T 

458A2 

1 

452A4 

1 

IIK 

FCM 

.07 

0.1 

1.56 

0.1 

10.0 

T 

458A2 

1 

452A4 

1 

IIK 

RIP 

.98 

0.1 

1..56 

0.1 

10.0 

T 

458A2 

1 

IIK 

BCOK 

.24 

4.0 

.00 

3.9 

4.1 

T 

452A4 

1 

IIK 

RTS 

.58 

4.0 

.00 

3.9 

4.1 

T 

458E0 

1 

IIK 

NRTS 

.18 

4.0 

.00 

3.9 

4.1 

T 

458E0 

1 

IIPA 

R&R 

.55 
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4.33 

0.1 

24.0 

L 

458E2 

1 
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2 

452A4 

1 
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4.33 
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24.0 

L 
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1 
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2 
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1 
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4.33 

0.1 
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L 
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1 

458A2 

1 
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NRTS 
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1.0 

0.45 

1.0 
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T 
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1 
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T 

452AB 

2 
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T 
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1 
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O.SO 

44EG 

BCOK 

.50 

2,0 

1.83 

44EG 

RTS 

.50 

2.0 

1.83 

44EG 

COND 

.00 

2.0 

1.83 

44EH 

R&R 

1.00 

2.2 

0.60 

44EH 

CND 

.00 

2.2 

0.60 

44EH 

RIP 

.00 

2.2 

0.60 

44EH 

BCOK 

.50 

2.0 

1.83 

44EH 

RTS 

.50 

2.0 

1.83 

44EH 

COND 

.00 

2,0 

1.83 

44EJ 

R&R 

1.00 

2.2 

0.60 

44EJ 

CND 

.00 

2.2 

0.60 

44EJ 

RIP 

.00 

2.2 

0.60 

44EJ 

BCOK 

.50 

2.0 

1.83 

44EJ 

RTS 

.50 

2.0 

1.83 

44EJ 

COND 

.00 

2.0 

1.83 

44EK 

R&R 

1.00 

2.2 

0.60 

44EK 

CND 

.00 

2.2 

0.60 

44EK 

RIP 

.00 

2.2 

0.60 

44EK 

BCOK 

.50 

2.0 

1.83 

44EK 

RTS 

.50 

2.0 

1.8-^ 

44EK 

COND 

.00 

2.0 

1.83 

45A 

R&R 

.54 

1.7 

1.73 

45A 

CND 

.17 

1.7 

1.73 

0.5  8.9  T  451CB  1  METS  1 

0.9  4.4  T  452A5  1 

0.9  4.4  T  452A5  .1 

0.9  4.4  T  452A5  1 

0.5  8-9  T  451.CB  1  WEI’S  1 

0.5  8.9  T  451CB  1  METS  1 

0.5  8.9  T  45iCB  1  METS  1 

1.0  4.0  T  452A5  1 

1.0  4.0  T  452A5  1 

1.0  4.0  T  452A5  1 

0.5  8.9  T  451CB  1  METS  1 

0.5  8.9  T  45JCB  1  METS  1 

0.5  8.9  T  451CB  1  METS  1 

1.0  4.0  T  452A5  1 

1.0  4.0  T  452A5  1 

1.0  4.0  T  452A5  1 

0.5  8.9  T  451CB  1  METS  1 

0.5  8.9  T  451CB  1  METIS  1 

0.5  8.9  T  451CB  1  METS  1 

1.0  4.0  T  452A5  1 

1.0  4.0  T  452A5  1 

1.0  4.0  T  452A5  1 

0.5  8.9  T  451CB  1  METS  1 

0.5  8.9  T  451CB  1  METS  1 

0.5  8.9  T  451CB  1  xMETS  1 

1.0  4.0  T  452A5  1 

1.0  4.0  T  452A5  1 

1.0  4.0  T  452A5  1 

0.5  8.9  T  451v':B  1  METIS  1 

0.5  8.9  T  451CB  1  I'lETfS  1 

0.5  8.9  T  451CB  1  METS  1 

1.0  4.0  T  452A5  1 

] .0  4.0  T  452A5  1 

1.0  4.0  T  452.^5  1 

0.5  8.9  T  451CB  1  METS  1 

0.5  8.9  T  451CB  1  METS  1 

0.5  8.9  T  451CB  1  METIS  1 

1.0  4.0  T  452/\5  1 

1.0  4.0  T  452A5  1 

1.0  4.0  T  452A5  1 

0.5  8.9  T  451CB  1  METS  1 

0.5  8.9  T  451CB  1  METS  1 

0.5  8.9  T  451CB  1  METS  1 

1.0  4.0  T  452A5  1 

1.0  4.0  T  452A5  1 

1.0  4.0  T  452A5  1 

C.5  8.9  T  451CB  1  METS  1 

0.5  8.9  T  451CB  1  METS  1 

0.5  8.9  T  451CB  1  METIS  1 

0.4  8.0  L  452AB  2 

0.4  8.0  L  452AB  2 
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45A 

PCM 

,03 

1.7 

1.73 

0.4 

8.0 

L 

452AB 

2 

45A 

RIP 

.29 

1.7 

1.73 

0.4 

8.0 

I,  452AB 

2 

45A 

RTS 

.29 

0.5 

1.59 

0.5 

5.0 

T 

451CB 

1 

NETS 

1 

45A 

NRTS 

.71 

0.5 

1.59 

0.5 

5.C 

T 

451CB 

1 

NETS 

1 

45B 

R&R 

.38 

0.5 

1.12 

0.5 

7.0 

T 

452AB 

2 

45B 

RIP 

.62 

0.5 

1.12 

0.5 

7.0 

T 

452AB 

2 

45B 

RTS 

.50 

2.4 

2.50 

0.5 

4.0 

T 

451CB 

1 

I-IETS 

1 

45B 

NRIS 

.50 

2.4 

2.50 

0.5 

4.0 

T 

451CB 

1 

METS 

1 

45C 

R&R 

.35 

0.5 

2.13 

0.5 

14.0 

T  452AB 

2 

45C 

aro 

.02 

0.5 

2.13 

0.5 

14.0 

T 

452AB 

2 

45C 

RIP 

.63 

0.5 

2.13 

0.5 

14.0 

T 

452AB 

2 

45C 

NRTS 

1.00 

.8 

.00 

.7 

.9 

T 

454E1 

1 

45X 

R&R 

1.00 

1.0 

.00 

0.9 

1.1 

T 

454E1 

1 

45X 

RTS 

.30 

0.5 

1.59 

0.5 

5.0 

T 

454E1 

1 

45X 

NRPS 

.70 

0.5 

1.59 

0.5 

5.0 

T 

454E1 

1 

460 

R&R 

.50 

2.0 

3.21 

0.3 

7,9 

T 

454C3 

3 

460 

CND 
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3.21 
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7.9 

T 
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460 

FOM 
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3.21 
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T 

454C3 
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460 

RIP 
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3.21 
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7.S 

T 

454C3 

3 

460 

RTS 
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T  454C3 

3 

46A0C 

R&R 

.00 

2.6 

2.10 

0.3 

12.6 

li 

454C3 

3 

46A0C 

(3® 
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2.6 

2.10 
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12.6 

L 

454C3 

3 

46A0C 

RIP 

.75 

2.6 
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12.6 

L 

454C3 

3 

46A0C 

RTS 

1. 00 

0.8 

1.00 
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3.5 

T 

454C3 

3 

4  6  AD 

R&R 

.00 

3.3 

1,84 

0.7 

7.5 

L 

454C3 

3 

4  GAD 

a® 

.06 

3.3 

1.04 

0.7 

•7  n 

L 

Av.An'i 

•3 

4  GAD 

RIP 

.94 

3.3 

1.84 

0.7 

7.5 

L 

454C3 

3 

4  6  AD 

RTS 

1.00 

0.8 

1.00 
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3.5 

T 

454C3 

3 

46AE 

R&R 

.00 

5.9 

4.00 

0.5 

13.0 

L 

454C3 

3 

46AE 

CP® 

.00 

5.9 

4.00 
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13.0 

L 

454C3 

3 

46AE 

RIP 

1.00 

5.9 

4.00 
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13.0 

L 

454C3 

3 

46AE 

RTS 

1.00 

0.8 

1.00 

0.2 

3.5 

T 

454C3 

3 

46B 

R&R 

.48 

1.8 

1.82 

0.2 

8.0 

L  452A4 

2 

46B 

CND 

.28 

1.8 

1.82 

0.2 

8.0 

L 

452A4 

Z. 

46B 

FOM 

.19 

1.8 

1.82 

0.2 

8.0 

L 

452A4 

2 

46B 

RIP 

.24 

1.8 

1.82 

0,2 

8.0 

L 

454C3 

3 

46B 

RTS 

1.00 

3.5 

.00 

3.4 

3.6 

T 

454C3 

3 

46D09 

R&R 

.00 

1.8 

0.94 

0.5 

4.0 

L  454C3 

3 

454E1 

1 

46D09 

CND 

.40 

1.8 

0.94 

0.5 

4.0 

L  454C3 

3 

454E1 

1 

46D09 

RIP 

.60 

1.8 

0.94 

0.5 

4.0 

L 

454C3 

3 

454E1 

1 

46D09 

NRTS 

1.00 

1.5 

.71 

1.0 

2.0 

T 

454C3 

3 

454E1 

1 

46DA 

R&R 

.83 

2.7 

1.02 

0.5 

5.5 

T 

454C3 

3 

454E1 

1 

46DA 

CND 

.17 

2.7 

1.02 

0.5 

5.5 

T 

454C3 

3 

454E1 

1 

46DA 

RIF 

.00 

2.7 

i.o: 

0.5 

5.5 

T 

454C3 

.J. 

454E1 

1 

46DA 

ms 

0.00 

1.5 

.71 

1.0 

2.0 

T 

454C3 

3 

454E1 

1 

46DA 

BCOK 

0.00 

1.5 

.71 

1.0 

2.0 

T 

454C3 

3 

454E1. 

1 

46DA 

NRTS 

1.00 

1.5 

.71 

1.0 

2.0 

T 

454C3 

3 

454E1 

1 

46E0A  13&R 

.22 

3.3 

2.43 

0.3 

13.0 

L 

452.^5 

2 

454C3 

1 

46E0A  ao 

.22 

3.3 

2.43 

0.3 

13.0 

L 

452A5 

2 

454C3 

1 

46E0A 

RIP 

.56 

3.3 

2.43 

0.3 

13.0 

1. 

452A5 

2 

454C3 

1 

46E0A  RTS 

1.00 

0.5 

.88 

0.2 

3.2 

T 

454C3 

1 

454E1 

1 
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46EB 

R&R 

.96 

2.1 

1.79 

0.5 

7.0  T  452AB 

2 

46EB 

CND 

.04 

2.1 

1.79 

0.5 

7.0  T  452AB 

2 

46EB 

BCOK 

.15 

1.0 

0.90 

0.3 

3.2  T  451CB 

2  METS 

46EB 

NRTS 

.85 

1.0 

0.90 

0.3 

3.2  T  451CB 

2  METS 

46EC 

R&R 

1.00 

2.4 

1.15 

0.5 

2.5  T  454C3 

3 

46EC 

RTS 

1.00 

0.5 

0.88 

0.2 

3.2  T  451CB 

2  METS 

46ED 

R&R 

.75 

2.7 

1.89 

0.5 

7.9  L  452AB 

2 

46ED 

Q^D 

.08 

2.7 

1.89 

0.5 

7.9  L  452AB 

2 

46ED 

RIP 

.l’^ 

2.7 

1.89 

0.5 

7.9  L  452AB 

2 

46ED 

BCOK 

.20 

.  6 

.36 

.2 

1.0  T  451CB 

2  METS 

46ED 

NRTS 

.80 

.6 

.36 

.2 

1.0  T  451CB 

2  METS 

46f:e 

R&R 

.40 

0.8 

2.42 

.8 

8.0  T  452A5 

2 

46EE 

CND 

.40 

0.8 

2.42 

.8 

8.0  T  452A5 

2 

46EE 

RIP 

.20 

0.6 

2.42 

.8 

8.0  T  452A5 

2 

46EE 

RTS 

1.00 

0.5 

0.88 

0.2 

3.2  T  451CB 

2  METS 

46F 

R&R 

.18 

0.8 

.47 

.5 

2.0  T  452A4 

2 

46F 

RIP 

.82 

0.8 

.47 

.5 

2.0  T  452A4 

2 

46F 

RTS 

1.00 

0.8 

1.00 

0.2 

3.5  T  454C3 

3 

46G 

CND 

1.00 

1.0 

.00 

0.9 

1.1  T  454C3 

1 

46K 

CND 

.50 

0.8 

1.21 

0.4 

3.0  T  452A5 

1 

46K 

RIP 

.50 

0.8 

1.21 

0.4 

3.0  T  452A5 

1 

46X 

CND 

1.00 

1.0 

.00 

0.9 

1.1  T  452AB 

2 

47 

R&R 

.63 

0.3 

0.94 

0.3 

4.3  T  452A5 

1 

47 

CND 

..16 

0.3 

0.94 

0,3 

4.3  T  452A5 

1 

47 

RIP 

.21 

0.3 

0.94 

0.3 

4.3  T  452A5 

1 

47 

Type 

1.00 

0.4 

1.14 

0.0 

2.0  T  452C5 

1 

4  9  AO 

R&R 

.00 

0.9 

.20 

0.5 

1.0  L  452A5 

2 

4  9  AO 

CND 

1.00 

0.9 

.20 

0.5 

1.0  L  452A5 

2 

4  9  AO 

FOM 

.00 

0.9 

.20 

0.5 

1.0  L  452A5 

2 

49A0 

RTS 

0.00 

4.0 

.00 

3.9 

4.1  T  452C5 

i 

49AA 

R&R 

.00 

1.1 

.69 

0,3 

2.2  L  452A5 

2 

49AA 

CND 

.50 

1.1 

.69 

0.3 

2.2  L  452A5 

2 

49AA 

POM 

.33 

1.1 

.69 

0.3 

2.2  L  452A5 

2 

49/\A 

RIP 

.50 

1.1 

.69 

0.3 

2.2  L  452A5 

2 

49AA 

RTS 

0.00 

4.0 

.00 

3.9 

4.1  T  452C5 

1 

49AB 

R&R 

.00 

4.8 

2.33 

2.0 

7.5  L  452A5 

2 

49AB 

CND 

.00 

4.8 

2.33 

2.0 

7.5  L  452A5 

2 

49AB 

FOM 

.00 

4.8 

2.33 

2.0 

7.5  L  452A5 

2 

49AB 

RIP 

1.00 

4.8 

2.33 

2.0 

7.5  L  452A5 

2 

49AB 

RTS 

0.00 

4.0 

.00 

3.9 

4.1  T  451CB 

1  METS 

4  9  AC. 

R&R 

.34 

1.9 

1.86 

0.1 

7.5  L  452A5 

1 

4  9  AC 

CND 

.50 

1.9 

1.86 

0.1 

7.5  L  452A5 

1 

4  9  AC 

Fa4 

.14 

1,9 

1.86 

0.1 

7.5  L  452A5 

1 

4  9  AC 

RIP 

.16 

1.9 

1.86 

0.1 

7.5  L  452A5 

1 

4  9  AC 

RIS 

1.00 

4.0 

.00 

3.9 

4.1  T  452C5 

1 

49AG 

RIP 

1.00 

2.0 

.01 

1.9 

2.1  T  452A5 

1 

4  9  AG 

R]S 

1.00 

4.0 

.00 

3.9 

4.1  T  452C5 

1 

4  9  AH 

RIP 

1.0^ 

3.0 

.01 

2.9 

3.1  T  452A5 

1 

49AH 

RTS 

l.Ou 

4.0 

.00 

3.9 

4.1  T  452C5 

1 

49C 

CND 

1,00 

1.0 

.00 

0.9 

1.1  T  452A5 

1 

49C 

RTS 

0.00 

1.0 

.00 

0.9 

1.1  T  451CA 

1  COMPU 

1 

1 

1 


1 

1 


1 


1 
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49X 

CND 

1.00 

1.0 

.00 

0.9 

1.1 

T 

452A5 

1 

49X 

RTS 

0.00 

1.0 

.00 

0.9 

1.1 

T 

451CA 

1 

CQMPU 

51A0C 

R&R 

.14 

2.4 

1.10 

1.0 

5.0 

T 

452AB 

2 

51A0C 

CND 

.72 

2.4 

1.10 

1.0 

5.0 

T 

452AB 

2 

51A0C 

RIP 

.14 

2.4 

1.10 

1.0 

5.0 

T 

452AB 

2 

51A0C 

BCOK 

1.00 

2.1 

.00 

2.0 

2.2 

T 

451CB 

1 

NETS 

1 

51  AD 

R&R 

.90 

0.7 

1.57 

0.5 

6.0 

T 

452AB 

2 

51AD 

CND 

.03 

0.7 

1.57 

0.5 

6.0 

T 

452AB 

2 

51AD 

RIP 

.07 

0.7 

1.57 

0.5 

6.0 

T 

452AB 

2 

5LAD 

BCOK 

.27 

0.3 

.66 

0.3 

3.5 

T 

451CA 

1 

COMPU 

1 

51AD 

NRPS 

.73 

0.3 

.66 

0.3 

3.5 

T 

451CA. 

1 

COMPU 

1 

5iftEF 

R&R 

.88 

0.4 

.83 

0.4 

3.0 

T 

452AB 

2 

51AEF 

RIP 

.12 

0.4 

.83 

0.4 

3.0 

T 

452AB 

2 

51AEF 

BCOK 

.40 

2.6 

2.14 

0.7 

8,0 

L 

451CB 

1 

METS 

1 

51AEF 

NRTS 

.60 

2.6 

2.14 

0.7 

8.0 

L 

451CB 

1 

NETS 

1 

51AG 

R&R 

.00 

2.0 

0.01 

1.9 

2.1 

T 

452AB 

2 

51AG 

CND 

.00 

2.0 

0.01 

1.9 

2.1 

T 

452AB 

2 

5LAG 

RIP 

1.00 

2.0 

0.01 

]  .9 

2.1 

T 

452AB 

2 

51AG 

BCOK 

.00 

1.8 

1.09 

0.3 

3.5 

T 

451CB 

1 

METS 

1 

51AG 

NRTS 

.00 

1.8 

1.09 

0.3 

3.5 

T 

451CB 

1 

METS 

1 

51AH 

R&R 

.00 

2.3 

1.43 

0.5 

4.5 

T 

452AB 

2 

51AH 

CND 

.00 

2.3 

1.43 

0.5 

4.5 

T 

452AB 
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51AH 

RIP 

1.00 

2.3 

1.43 

0.5 

4.5 

T 

452AB 

2 

5LAH 

BCOK 

.00 

1.8 

1.09 

0.3 

3.5 

T 

451CA 

1 

COMPU 

1 

51AH 

NRTS 

.00 

1.8 

1.09 

0.3 

3.5 

T 

451CA 

1 

CQMPU 

1 

5LAJ 

P&R 

.70 

1.8 

0.84 

0.5 

3.0 

T 

452AR 

2 

51AJ 

CNU 

.30 

1.8 

0.84 
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51AJ 

RIP 
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1.8 

0.84 

0.5 

3.0 
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1.09 
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3.5 
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451CA 
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COMPU 

1 

51AJ 

NRTS 

.70 
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1.09 

0.3 

3.5 
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451CA 
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COMPU 

1 

51AKL 

R&R 

.82 

1.0 

.60 

1.0 

2.6 

T 

452AB 

2 

51AKL 

CND 

.09 

1.0 

.60 

1.0 

2.6 
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452AB 
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51AKL 

RIP 

.09 

1.0 
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51AKL 

NRTS 
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51AN 
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51AN 

RIP 
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0.3 

.07 

0.0 

0.0 

L 

452AA 

2 

74PF0 

R&R 

.94 

0,2 

.06 

0.0 

0.0 

L 

452AA 

2 

74PG0 

R&R 

.76 

0.3 

.08 

0.0 

0.0 

L 

452AA 

2 

74PH0 

R&R 

.61 

0.2 

.05 

0.0 

0.0 

L 

452AA 

2 

74PK0 

R&R 

.71 

0.1 

.03 

0.0 

0.0 

L 

452AA 

2 

74PL0 

R&R 

.84 

0.1 

.03 

0.0 

0.0 

L. 

452AA 

2 

74PA0 

DCWN 

.05 

0.4 

.08 

0.0 

0.0 

L 

452AA 

2 

74PB0 

DOWN 

.05 

0.4 

.08 

0.0 

0.0 

L 

452AA 

2 

74PC0 

DOWN 

.05 

0.4 

.08 

0.0 

c.o 

L 

452AA 

2 

74PD0 

DUl«/N 

.05 

0.4 

,08 

0.0 

0.0 

L 

‘.52AA 

2 

74PE0 

DCWN 

.05 

0.4 

.08 

0.0 

0.0 

L 

452AA 

2 

74PF0 

DOWN 

.05 

0.4 

.08 

0.0 

0.0 

L 

452AA 

2 

74PG0 

Da^/N 

.05 

0.4 

.08 

0.0 

0.0 

L 

452AA 

2 

74PH0 

DCWN 

.05 

0.4 

.08 

0.0 

0.0 

L 

452AA 

2 

74PK0 

DOWN 

.05 

0.4 

.08 

0.0 

0.0 

L 

452AA 

2 

74PL0 

EXJ'JN 

,05 

0.4 

.08 

0.0 

0.0 

L 

452AA 

2 

74PN0 

R&R 

,99 

0.4 

.08 

0.0 

0.0 

L 

452AA 

2 

74P99 

R&R 

.50 

0.4 

.08 

0.0 

0.0 

L 

452AA 

2 

74PA0 

BCOK 

.28 

1.2 

.29 

0.0 

0,0 

L 

455CA 

1  TEST2 

1 

74PB0 

BCOK 

.19 

0.5 

.13 

0.0 

0.0 

L 

455CA 

1  TEST2 

1 

74PC0 

BCOK 

.14 

1.3 

.31 

0.0 

0.0 

L 

455CA 

1  TEST2 

1 

74PD0 

BCOK 

.98 

0.9 

.21 

0.0 

0.0 

L 

455CA 

1  TEST2 

1 

74PE0 

BCOK 

.68 

0.3 

.08 

0.0 

0.0 

L 

455CA 

1  TEST4 

1 

74PGO 

BCOK 

.24 

0.4 

.10 

0.0 

0.0 

L 

455CA 

1  TEST2 

1 
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74PH0 

BCOK 

.51 

0.8 

.21 

0.0 

0.0 

L 

455CA 

1 

TEST3 

1 

74PK0 

BCOK 

.31 

0.5 

.12 

0.0 

0.0 

L 

455CA 

1 

TEST4 

1 

74PL0 

BCOK 

.12 

0.8 

.19 

0.0 

0.0 

L 

455CA 

X 

TEST2 

1 

74PN0 

BCOK 

.01 

1.1 

.25 

0.0 

0.0 

L 

455CA 

1 

74P99 

BCOK 

.99 

1.1 

.25 

0.0 

0.0 

L 

455CA 

1 

74PA0 

RTS 

.44 

2.0 

.50 

0.0 

0.0 

L 

455CA 

1 

TEST2 

1 

74PB0 

RTS 

.75 

1.7 

.43 

0.0 

0.0 

li 

455CA 

1 

TEST2 

] 

74PC0 

RTS 

.32 

1.9 

.47 

0.0 

0.0 

L 

455CA 

1 

TE3T2 

1 

74PD0 

RTS 

.01 

1.4 

.34 

0.0 

0.0 

L 

455CA 

1 

TEST2 

1 

74PE0 

RTS 

.28 

0.6 

.16 

0.0 

0.0 

L 

455CA 

1 

TEST4 

1 

74PG0 

RTS 

.73 

0.9 

.23 

0.0 

0.0 

L 

455CA 

i 

TEST2 

1 

74PH0 

RTS 

.24 

1.9 

.48 

0.0 

0.0 

L 

455CA 

1 

TEST3 

1 

74PK0 

RTS 

.65 

1.0 

.26 

0.0 

0.0 

L 

455CA 

1 

TEST4 

1 

74PL0 

RTS 

.84 

1.5 

.37 

0.0 

0.0 

L 

455CA 

1 

TEST2 

1 

74PN0 

RTS 

.99 

1.6 

.40 

0.0 

0.0 

L 

455CA 

1 

74P99 

RIS 

.01 

1.6 

.40 

0.0 

0.0 

L 

455CA 

1 

74PA0 

NRTS 

.28 

0.7 

.17 

0.0 

0.0 

L 

455CA 

1 

TEST2 

1 

74PB0 

NRTS 

.06 

0,3 

.09 

o.c 

0.0 

L 

455CA 

1 

X 

TEST2 

1 

74PC0 

NRTS 

.04 

0.7 

.18 

0.0 

0.0 

L 

455CA 

1 

TEST2 

1 

74PD0 

NRTS 

.01 

0.5 

.13 

0.0 

0.0 

L 

455CA 

1 

TEST2 

1 

74PE0 

NRTS 

.04 

0.2 

.06 

0.0 

0.0 

L 

455CA 

1 

TEST4 

1 

74PF0 

NRTS 

1.00 

0.5 

.12 

0.0 

0.0 

L 

455CA 

1 

74PG0 

NRTS 

.03 

0.2 

.06 

0.0 

0.0 

L 

455CA 

1 

TCST2 

1 

74PH0 

NRTS 

.25 

0.6 

.15 

0.0 

0.0 

L 

455CA 

1 

TESTS 

1 

74PK0 

NRTS 

.04 

0.3 

.08 

0.0 

0.0 

L 

455CA 

1 

TEST4 

1 

74PL0 

NRTS 

.04 

0.4 

.11 

0.0 

0.0 

L 

455CA 

1 

TEST2 

1 

*****  (end  of  file) 

C.3.  F15EDAT.F0R 

*****  (beginning  of  file) 

*  ★★★ilr****'!»rV>:****’****'*************i(lr 

*  F-15  E  BLOCK  DATA  FILE 

ir 

•k'k'k^t-k’k-k-ft'k-kiK'k'k’k'k'k’k'k-k'k-kie'k'k'k'k'k'k'k’k-kic'k 

BLOCK  DATA  TRDAjA 
COMMON/BRK/XBRK( 4 ) ,  TABORT( 1 ) 

COMMDN/WORK/CODES (399,4), RESC (399,10,5),  TIMES (399,10), TMIN (399,10) 
l,QlJAN(399,10,5),NRESC(399,10),PERCWr(399,10) ,SCENE(5) ,TMAX( 399, 10) 
2,STDEV(399,10)  ,SMISS( 7 )  ,WCENE(5)  ,VJMISS(7 )  ,TPLANE(  1)  ,TPHASE(7 )  ,V( 3) 
INTEGER  RESC, QUAN , NRESC , SCENE , CODES , WCENE , TPLANE 

•k 

*  33RD  TFW  DATA  FOR  F-15  C/D  MSIP  AIRCRAFT 

* 

C  DATA  TPlANE/2/ 

C  DATA  TT’HASE/60.,150.,210.,330.,390.,570.,630./ 

C  DATA  V/0. 80, 1.0, 1.0/ 

C  DATA  XBRK/0.85,0.0,0.0,0.0/ 

C  DATA  TABORT/ 0.97/ 


k  k  VK 

* 
★ 

*  *  * 
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DATA  w::ENE/23,23,2,1,0/ 

DATA  WMISS/1. 36, 8. 0,8. 0,720. 0,-25,8.75, 8.0/ 

DATA  SCEI^E/23,23,2,1,0/ 

DATA  Sl'tlSS/l. 36, 8. 0,8. 0,0. 90,  .25,8.75,8.0/ 

•k-kic'f'iric'ieii'^ir'/r-kir-k'k'k-k-k-k'kie'k'k'k-if'k'k'k'k-ir-k’k'kit'kie'it-kicic'k-k'ic-k-k-k-k'k'k’k’k'k'k'k'k'k'k'k'kiir'k'k-k'k'kiKic 


F-15  E  DATA 


C 

C 

C 

C 

C 

C 

C 


DATA  TPLANE/1/ 


DATA  TPHASE/80 . , 200 . , 280 . , 440 . , 520 . , 760 . , 840 . / 
DATA  V/0.71,1.0,1.0/ 

DATA  XBRK/0.0,0.55,0.55,0.0/ 

DATA  TABORT/0.10/ 

PEACETIME,  SORTIE  IWTE  IS  1.05  SORTIES  PER  AIRPLANE 
DATA  W:ENE/24 ,26,2,1,0/ 

DATA  WMISS/1.7,8.0,8.0,720.0, .25,8.75,8.0/ 

DATA  SCENlV24,26,2,l,0/ 

DATA  SMISS/1.7,8.0,8.0,1.05, .25,6.75,8.0/ 


SURGE,  SORTIE  RATE  IS  2.0  SOKIIES  PER  AIRPLANE 
DATA  VvfCENE/24 ,48,2,2,0/ 

DATA  WMISS/1. 7, 12. 0,12. 0,168.0, .25,1.75,0.00001/ 
DATA  SCENE/24,48,2,2,0/ 

DATA  SMISS/1.7, 12.0, 12.0,2.0, .25,1.75,0.00001/ 


SUSTAINTSD,  SORTIE  RATE  IS  1.5  SORTIES  PER  xMRTLAI^T; 
DATA  WCENE/24 ,36,2,3,0/ 

DATA  WMISS/1. 7, 12. 0,12. 0,72.0, .25,1.75,0.00001/ 
DATA  SCENE/24,36,2,3,0/ 

DATA  SMISS/1.7, 12.0, 12.0,1.5, .25,1.75,0.00001/ 


MOBILITY  SURGE 

DATA  WCENE/24, 60, 2, 4,0/ 

DATA  WCENE/24 ,72,2,5,0/ 

DATA  WMISS/1.7, 12.0, 12.0,72.0, .25,1.75,0.00001/ 
DATA  SCENE/24,60,2,4,0/ 

DATA  SCENE/24,72,2,5,0/ 

DATA  SMISS/1.7, 12. 0,12. 0,2. 5,. 25, 1.75, 0.00001/ 
DATA  SMISS/ 1 . 7 , 12 . 0 , 12 . 0 , 3 . 0 , . 25 , 1 . 75 , 0 . 00001/ 
END 


*****  (end  of  file) 
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APPENDIX  D.  Conputer  Code  -  SLAM  Network 


GCN,CHEN,TRIAL,06/10/86,1,Y,N,Y,N,Y,72; 

;  ILIST,IECHO,IXQT,IPIRH,ISMRY 
;  ENTITIES  +  EVENT  CALENDAR 
LIMI'iS,22,28,2000;  MFILS,MATRB,MENTS 
PRIORITY/ 3, LIFO; 

PRIORITY/5, LIFO; 

PRIORITY/18, LIFO; 

PRIORITY/ 12 , LIFO; 

SEEDS, 0( 1 ) /YES, 0 ( 5 ) /YES; 

;SEEDS, 14547498 ( 1 ) /YES, 8497682 1 ( 5  ^ /YES; 

;SEEDS, 38561056 ( 1 ) /YES, 67201784 ( 5 ) /YES; 
;SEEDS,84572938(1)/YES,30418946(5)/YES; 
;SEEDS,98324322(1)/YES,51984784(5)/^; 
;SEEDS,61453074(1)/YES,73145210(5)/YES; 

;  SEEDS ,  4  37 16 1 10  ( 1 ) /’k'ES ,  28334562  ( 5 )  /  YES  ; 

;  *  *  ENTER  NCDES 
;  1  PREFLIGHT 

;  2  REPAIR  NETWORK 

;  3  SHOP  NETOORK 

;  4 

;  5  TERMINATE  NEWORK 

;  6  DEPOT 

;  7  CHECK  FAILURE  TIME  VERSUS  FLYING  TIME,  NEXT  SHIFT  MAINl’ 

;  8  R&R  NETl^RK 

;  9  CANN  NETWORK 

;  10  PRE  CANN  NETWORK 
NETWORK; 

RDY  QUEUE(2); 

SORT  QUEUE(4); 

SSFT  QUEUE(5); 

NMOS  QUEUE(7); 

HQ  QUEUE(17); 

PMO  QUEUE(9); 

SSf2  Queue (14); 


COMPLETE  PREFLIGHT 

ENTER, 1,1; 

ACT; 

ASSI(31,A'TRIB(  10)=^1, 
ACT,,XX( 1) .EQ.2,SSF 
ACT'; 

EVENT,8,1; 

ACT, ,ATRIB(17)  ,EQ. 
AC1’/1,ATRIB(7); 
EVENT,  12,1  ; 

ACT; 


FILE(2)=READY  QUEUE 
FILE(4)=SORTIE  QUEUE 


DETERMINE  PREFL.IOTT  TIME 


';  WEEKEND,  NO  MAINT  DONE 

ALLOCATE  RESOURCES 
99,  TERM;  RESOURCES  NOT  AVAILABLE 

DO  THE  PREFLIC31T 
FREE  RESOURCES 
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EVENT,  1.1, 1; 
ACT, , ,TERM; 


PLACE  PLANE  IN  READY  QUEUE 


; CHECKS  FAILURE  TIME  VERSUS  HAYING  TIME,  C015PLETES  NEXT  SHIFT  MAIIU? 

* 

f 

REO  ENTER,?, 1; 

ACT; 

EVENT, 3,1; 

ACT, , ,TERM; 


REPAIR  NETWRK 


REPl 


REP5 


REP2 


REP6 


GCm,!; 

ACT,  ,.ATRIB(9)  .NE.0,SSFT.’; 
ACT; 


ENTER,2, 1; 

ACT, ,XX(1) .EQ.1.0  .AND.  ATRIB(5).GT.3,SSFr; 

ACT, ,XX(1) .EQ.  2,SSFr; 

/O'; 

EVENT,?,  1;  CALL  MAINT  FOR  TASK  TIMES 

ACT,  ,ATRIB(1?)  .EQ.  99, TERM;  NO  SPARE  AVAIL  IN  PARALLEL  R&R 

ACT’,  ,ATRIB(?)  .EQ.  0,TERM;  NO  TASK  TIME,  END  OF  SHIFT 

ACT; 

ASSiai,ATRIB( 10 ) =2 , 1 ; 

ACT; 


EVENT, 8,1;  ALLOCATE  RESOURCES 

ACT, ,ATRIB(1?)  .EQ.  99,  TERM;  RESOURCES  NOT  AVAILABLE 

ACT, ,XX(1). EQ.1.0  .AND.  ATRIB(5) .GT.3,SSFT; 

ACT, ,XX(1) .EQ.2,SSFT; 

ACT; 

G00N,1; 

ACT/2, ATRIB(?); 

G00N,1; 

ACT,,ATR1B(18)  .EQ.l  .AND.  ATRIB(9)  .EQ.0,RR01;  GET  SPARE  FOR  R&R 
ACT; 

£^^0,12,2;  FREE  RESOURCES 

ACT,  ,A'i'KlB(9)  .Gi'.O  .OK.  ATkIB(20)  .EQ.  i,REPl;  SECOND  SHIFT 

ACT,  ,ATRIB(11)  .EQ.2  .AND.  ATRIB(9)  .EQ.0,EMP;HANGAR  QUEEN 

ACT, ,AT'RIB(9) .EQ.O  .AND.  ATRIB( 11) .NE.2  .AND.  ATRIB(20).EQ.0,RE0; 

ALT, ,ATRIB(18) .EQ.2  .AND.  ATRIB(9) -EQ.O  .AND.  ATRIB{ 11) .EQ.O, SHOP; 

ACT, , ,TERM; 


EMP  EVENT, 21,1; 
ACT, ,  ,TT:RM; 


MANIPULATE  HANGAR  QUEEN 


R&R 

EN1'ER,8,1; 

ACT'; 

ASSIQnJ  ,  ATRIB  (10)=8,1; 

ACT, ,XX(1) .GE.1.0,SSFT;  DEAKriME,NO  MAINT  WORK 
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AC]\* 


ASSIGN, ATRIB{ 18 ) =2 , 1 ; 

ACT; 

EVENT,?, 1; 

ACT, ,ATRIB(7) .EQ.O,TERM; 
ACT; 

EVENr,8,l; 

ACT,  ,ATRIB(17)  .EQ. 99, TERM; 
ACT; 


CALL  MAINT  FOR  TASK  TIMES 

ALLOCATE  RESOURCES 
RESOURCES  NOT  AVAILABLE 


EVENT,  17,1;  ALLOCATE  SPARE 

ACr,,ATRIB(17)  .EO.99  .AND.  ATRIB(  11)  .NE.0,FRE5; 

ACT, ,ATRIB(17) .EQ.99,FRE4;  NO  SPARE  AVAIIABLE 

ACT, , ,REP2; 

ACT, , ,TERM; 


RROl  ASSIGN,ATRIB(18)=2,1; 

ACT; 

EVENT,?,  1;  CALL  MAINT  FOR  TASK  TIMES 

ACT,  ,ATRIB(7)  .EQ.0,TERM; 

ACT; 

EVENT, 17,1;  ALLOCATE  SPARE 

ACT,  ,ATRIB(17)  .EQ.99  .AND.  ATRIB(11).In}E.0,FRE5; 

ACT, ,ATRIB(17) .EQ.99,FRE4;  NO  SPARE  AVAILABLE 

ACT, , ,REr2; 

ACT, ,  ,TERI*I; 

f 

;SHOP  MAINIENANCE 


ENTER,.!,  1; 

ACT,,XX(l) .GE.1,SSF2; 

ACT; 

SHOP  EVEOT,16,1; 

ACT, ,ATRIB(7) .EQ.0,TERM; 
ACT; 

ASSIOI,  ATRIB(  10 )  =3 , 1; 

ACT; 

EVENT, 8,1; 

ACT, , ATRIB(  17 )  . F.Q .  99  .TERM; 
ACT, ,XX(1) .GE.1,SSF2; 
ACT/91,AT’RIB(7) ; 

EVENT, 12,1; 

ACT,  ,ATRIB(9)  .GT.0,SSF2; 
ACT, ,ATRIB(18) .EQ.9,DEPO; 
ACT; 

Fj3E2  event,  19,1; 

ACT, ,  ,TERI'1; 


DETERMINE  FIRST  SHIFT  TIME 


ALLOCATE  SHOP  RESOURCES 
SHOP  RESOURCES  NOT  AVAILABLE 
DEACTIME,  NO  MAINT  WORK 

FREE  SHOP  MANPOWER 

CHECK  IF  ANOTHER  SHIFT’  NEEDED 

aiECK  IF  NEED  TO  SEND  TO  DEPOT 

FREE  SPARE  TO  SUPPLY 


DER  ENTER,'),!; 

ACT/92, TRIAG(240. 0,300. 0,360. 0,5);  10-15  DAY  DEPOT  TURNAROUND  TIME 
ASSIGN, ATRIB( 18 ) =88 , 1 ; 

ACT, ,,FRE2; 
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ACT, ,  ,TERM, 


;  CANN  NETWORK 

GOON,i; 

ACT/5,0.026; 

ENTER, 10,1; 

ACT, ,XX(1) .GE.1,SSBT; 

ACT; 

EVENT, 18,1; 

ACT, ,  ,TERM; 

ENTER, 9,1; 

ACT; 

ASSI(31,ATRIB{  10 )  =10 , 1  ; 

ACT; 

EVENT, 8,1; 

ACT,  ,ATRIB{17)  .EQ.99,TERM; 
ACT, ,XX(1) .GE. 1.0,SSFT; 

ACT; 

GOON,l; 

ACT/3,ATRIB(7); 

EVENT, 12,1; 

ACT,  ,ATRIB(9)  .Gr.0,CANl; 

ACT,  ,ATRIB(22)  .EQ.99,CAN9; 
ALT , ,  ATKiB ( 1 1 )  .  EQ ,  2 ,  C>\N2 ; 
ACT, ,ATRIB(9) .EQ.0,RE0; 

ACT, ,  ,'rERM; 

;  RELEASE  PLANE  AFTER  CANN 

CAN2  E'/ENT,21,1; 

ACT, , ,1ERM; 

;  SEND  PLANE  BACK  FOR  MORE  WORK  ON 

r 

CTNQ  EXTENT  ,24,1; 

ACT, , ,TERM; 

7 

9 

FRE4  ASSIGN, ATRIB( 18) =1,1; 

ACT; 

FRE3  EVENT, 12,1; 

ACT, , ,SHOP; 

FI^S  EVEN!’,  12,1; 

ACT, , ,TERM; 

7 

ENTER, 5, 1; 

ACT; 

TERM  TERM; 

ENDNETWORK; 


GET  TO  END  OF  SHIFT 

NO  WORK  DURING  SERVICING  SHIFT 

CALCULATE  CANN  TIME 


ALLOCATE  RESOURCES 
RESOURCES  NOT  AVAILABLE 


BTEE  MANPOWER 
SECOND  SHIFT 

WORKING  ON  29  DAY  OLD  HQ 
PUT  KQ  BACK  II'TTO  HQ 
RELEASE  PLANE 


DAY  OLD  HQ 


FREE  MEN 


FREE  PERSONNEL 
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;INIT,0,719.9, , YES, YES; 
INIT, 0,5039. 9,, YES, YES; 
;INIT, 0,2159. 9, ,YES,yES; 
;INIT, 0,3239. 9,, YES, YES; 
;INIT,0,1079.9,,YES,YES; 
;M)NrR,  SUMRY,  24.0,24.0; 
MDNrR,CLEAR,720.0; 

CLEAR,  168 .0; 
SIMULATE; 

FIN; 
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APPENDIX  E.  Conputer  Code  -  FORTRAN 


This  appendix  consists  of  the  tile  FiSE.FOR.  The  conrtion  block  statanents 
v^iich  follow  have  baen  omitted  from  each  subroutine  in  FlSE.fOR  to  conserve 
space  in  this  docTuaient.  F15E.F0R  follows  the  ccnton  block  statements. 

*****  (beginning  of  ccimon  block  statenents  in  each  subroutine) 

CCMiasi/SCCMl/ATRIB(  100)  ,DD(  100)  ,DPL(  100)  ,DTNCW,  II,MFA,MST0P,NC1JSIR 
l,NCRDR,NPRNr,NNRUN,NNSET,I'n’APE,SS(  100)  ,SSL(  100)  ,TNEXT,TNCW,XX(  100) 
CCM10N/XCW5 /NFLOl'^N ,  FHTCT ,  MSDSOR,  NDAY ,  HMDSO ,  EllDS  1 ,  ENDS2 ,  NSFT 

1 ,  JN  ( 10 1 ) ,  .JRSC ( 10 i ) , NMRT ( 399 ) , NSPARE ( 399 ) , NSPU ( 399 ) , NSPR{ 399 ) 

2 ,  NPLANE ,  NSORTY ,  SFTO ,  SFTl ,  SFT2 ,  N^Jf^FT  ,liIARM,  MISSN ,  ITREQ ,  NDEP  (399) 

3, NBRK,NFIX(4)  ,NSPA(399)  ,TMMH(399)  ,SPA,FDAY,YMRT(399)  ,WEEK 

4, NDON(20) 

COMMDN/PLAY/XMTBl! (  399 ) ,  MAXWUC ,  NP ,  JA(  10 1 ) , TIMFLT,  SORLEN ,  DSGR 
1  ,NMOT(  399 )  ,MSP(  399 )  ,TFAiL(  399 )  ,VMDT(  399 )  ,KRSC( 70 )  ,GNDABT 

2 , CRITA( 399 ) ,CRITG( 399 ) ,CRITB( 399 ) ,CRITGN,NPP, PMAIMr( 24,40,2) 

3, DC(WN(24) ,SMOT,SNMET,SCOUWr(24) ,FCRIT(24) ,PFIL(24)  ,WBRK(399) 
CCMMON/BRK/XBRK( 4 ) ,TABORT( 1 ) 

COMM::»^/WORK/CODES(399,4),RESC(399,10,5),TIMES(399,10)  ,TMIN( 399, 10) 

1  ,QUAN(  399 , 10 , 5 ) , NRESC(  399 , 10 ) ,  PERaTr(  399 , 10 ) ,  SCENE ( 5 ) , TMAX (  399 , 10 ) 
2,STDEV(399,10)  ,SMISS( 7 )  ,WCENE( 5)  ,VMISS(7 )  ,TPLANE(  1 )  ,TPHASE( 7)  ,V( 3) 

I  OTECaiR  RESC ,  QUAN ,  WRESC ,  SCENE ,  CODES ,  WCENE ,  1PLANE ,  NP ,  PARA ,  WBRK 
CUMO^/FA’i'KlB/mJC (24,40,2) , WRESC ( 24 ,  S ) ,  w::AnN (24,4), PARA(  24 ) 
C0MIO4/W0RDS/AWUC ( 399 ) ,  DIST(  399 , 10 ) 

CHARACTER  Al-iUC*5,DlST*l 

*****  (eid  of  common  block  stateinents) 

*****  (beginning  of  F15E.POR) 


********************************************************************** 

*  MAIN  PROGRAM  FOR  TRIAL  SLAM  NEiWRK  * 

*******»**************************<(  ****!>'»*******  y.*x*  *******#'****:****** 

PHDGPAM  MAIN 
DIMENSIOI  NSET( 70001) 

COMION/SCOMl /ATRIB ( 1 00 ) ,  lXi(  100 ) ,  DDL(  100 ) ,  OTNOV ,11,  MFA,  MSTOP ,  NCLNR 
1 , NCRISl, NPRNT, NNRllN, NNSET, I^TAPE, SS ( 100 ) , SSL(  100 )  ,'INEXT, TNCW, XX ( 100 ) 
COMMON  QSE1'( 70001) 

COMMDN/UCa-15/liFLCIWN ,  FHIUT,  MSDiJOR,  NliAY ,  ENDSO ,  El^DSl ,  ENC62 ,  NSFT 

1 ,  JN(  101 ) ,  JRSC(  101 )  ,I'IMRT(  399 )  ,NSPARE(  399 )  ,NSPU(  399 )  ,NSPR(  399 ) 

2 ,  NPLANE ,  NSORTY ,  SFIX) ,  SFTl ,  SFT2 ,  NUMSFT,  WARM,  MISSN ,  FFREQ,  NDEP  ( 399 ) 

3 ,  NBRK ,  NFIX { 4 ) ,  NSPA (  399 ) , TI4MH  { 399 ) ,  SPA,  FDAY ,  Yj4RT (399), IVJEEK 

4, NDa4(20) 

C0J4FO4/PLAY/XMl’BM(  399) , MAXWUC, NP,JA(  101) , TIMFLT, SORLEN, DSGR 
1,NMDT(399)  ,MSP(399)  ,TFAIL(  39S )  ,14MDT(  399 )  ,KRSC(  70)  ,(30ABT 
2  ,CRITA(  399 )  ,CR1T3(  399 )  ,CRI1’B(  399 )  ,CRITC31,NPP,PMAIWr( 24 ,40,2) 
3,DOWN(24)  ,SMDT,SNMDr,SCOUNr(24)  ,FCRIT(24)  ,PFIL(24)  ,I4BRK(399) 
COMFOl/'BRK/XBRK  ( 4 ) ,  TABORT  ( 1 ) 

CCMOl/vgORK/CODES  (399,4),  RESC  (399,10,5),  TIMES  (399,10),  IWN  (399,10) 


1 ,QUAN( 399 , 10 , 5 ) ,NRESC( 399 , 10 ) , PERCNr( 399 , 10 ) , SCENE ( 5 ) , TMAX( 399 , 10 ) 
2,STDEV( 399 , 10)  ,S.MISS( 7 )  ,WCENE(  5 )  ,WMISS(7 )  ,TPIANE(  1 )  ,TPHASE(  7 ) , V(  3 ) 
CCM-O^/FAl'RIB/F^  (24,40,2) , WRESC  (24,5) , WSANN (24,4),  PARA(  24 ) 
C(31'OJ/WORDS/A7v'UC ( 399 ) , DIST(  399,10) 

CHARACTER  AWUC*5,DIST*1 

INTEGER  RllSC , QUAN, NRESC , SCENE , CODES ,WCENE , TPLAT® , NP ,  PARA, WBRK 
EQUIVALENCE ( NSET( 1 ) ,QSET(1) ) 

NNSET=70001 

NCRDR=5 

NPRNT=6 

WrAPE=7 

0PENi8,FILE='TRIALST.RPT' ,STATUS='NEW' ) 

IF  (TPLANE(l)  .EQ.  2)  TliEN 

OPEN(ll,FILE='TRIMCD.INP' ,STATUS='OLD' ) 

OPEN ( 12 , FILE- ' TRICD . INP ' , STATUS- 'OLD ' ) 

ELSEIF  (TPLANE(l)  .EQ.  1)  THEN 

OPEN  ( 1 1 ,  FILE- '  or .  INF ' ,  STATUS- '  OID ' ) 

OPEN ( 12 , FILE- ' TRIE . INP ' , STATUS- 'OLD ' ) 

ENDIF 
CALL  SLAt-l 

CLOSE ( 8 , STATUS- ' KEEP ' ) 

CLOSE (11, STATUS- 'KEEP' ) 

CLOSE ( 12 , STATUS- ' KEEP ' ) 

.STOP 

***■•*.*  i-*!.:  **************************************************** ************* 

*  INTLC  * 

*  SETS  INITIAL,  VAI^UES  FOR  COUNTERS  AND  PARAMETERS,  DEFINES  RESOURCE  * 

*  AND  SPARES  AJ-LOCATIO^S ,  ASSIGNS  FAILURE  CLOCK  TIMES  AND  BEGINS  * 

*  SHIFT,  SORTIE  AND  OUTPUT  SCHEDULES  * 

************************************************************************ 

SUBROUTINE  INTLC 
PARAMETER  (MMXXV-100) 

CCX'IlO'l/GCOMl  /  JJCDR ,  KKNN ,  LLFIL ,  URNK ,  LLTRY ,  MFEX ,  NNAMl ,  NNAM2 ,  NNAM3 , 
INNA  XD ,  NNAPT , mATR ,  NNFIL ,  NNTRY , TTBEG, TIOJ3, TTFIN , 

2TTSET,-XXT(MMXXV)  /rTrS.TITF 

****  spr  AIRCRm'’  INTORMATION 

*  FOR  F-15C/D 

IF  (l’PLANE(l)  .EQ.  2)  THEN 

****  F-I5C/D  MSIP  MANNING  AUIHORISATICW  -  DAY  SHIFT  PERSCMCL 
KRSC(1)=4 
KRSC(2)=3 
KRSC(3)=3 
KRSC(4)=12 
KRSC(5)-42 
KRSC(6)=3 
KRSC(7)=8 
KRSC(8)=6 
KRSC(9)=5 
KRSC(l0)-0 
KRSC(ll)-32 
KRSC(12)=14 
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KRSC(13)=2 

RRSC(14)=1 

KRSC'(15)=2 

KRSC(16)=3 

KPSC(17)=1 

KRSC(18)-2 

KRSC(19)=2 

KRSC(20)=10 

KPSC(21)=6 

KRSC(22)=15 

KRSC(23)=1 

KRSC(24)=1 

KRSC(25)=2 

KRSC(26)=5 

KRSC(27)=2 

KRSC(28)=17 

KRSC(29)=8 

KRSC(30)=9 

KRSC(31)=0 

KRSC(32)=2 

KRSC(33)=0 

KRSC(34)=0 

KRSC(35)=0 

****  DAY  EQUIPMENT  FOR  F-15  C/D 

OD 

JRSC(37)=1 

JRSC(38)=1 

JP>SC(39)=1 

.TRSC(40)=1 

JRSC(41)=1 

JBSC(42)=1 

JFSC(43)=1 

JFSC(44)=1 

JRSC(45)=1 

JRSC(46)=0 

JBSCf47)=0 

JRSC(48)=0 

JRSt:(49)=0 

JRSC(50)=0 

***  F-15C/D  MSIP  MANNING  AUTHORIZATION  -  NIQIT  SHIFT 

KRSC(36)=6 
KRSC(37)=5 
KRSC(38)=5 
KRSC(39)=15 
KRSC(40)=44 
KRSC(41)-5 
KRSC(42)=10 
KRSC(43)-8 
KRSC(44)-7 
KPSC(45)=0 
KRSC(46)=34 
KRSC(47j=l.S 
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KRSC(48)=1 

KRSC(49)=1 

KRSC(50)-1 

KHSC(51)=2 

KPSC(52)=1 

KRSC(53)=2 

KRSC(54)=3 

KRSC(55)=12 

KRSC(56)=7 

KFSC(57)=17 

KRSC(58)=2 

KPSC(59)=1 

KRSC(60)=3 

KRSC(61)=7 

KRSC(62)=1 

I<RSC(63)=19 

KRSC(64)=9 

KPSC(65)=11 

KRSC(66)=0 

KRSC(67)=3 

KRSC(68)=0 

KRSC(69)=0 

KRSC(  *70  ^  *0 

NIGfTT  SHIFT  EQUIPMENT  FOR  F-15C/D 

JRSC(06)=1 

JRSC(87)=1 

JPSC(88)=1 

JRSC(89)=1 

JBSC(90)=1 

JRSC(91)=1 

JRSC(S2)-1 

JRSC(93)=1 

JRSC(94)--1 

JRSC(95)=1 

aRSC(96)-0 

JKbC(97 )^0 

JRSC(98)=0 

JRSC(99)=0 

JP«SC(100)=-0 

*  FOR  F-15E  ^ 

ELSEIF  (TPLANE{1)  .EQ.  1)  THEN 
CRITGN=0.0 

***^  F-15E  MANNING  AUTHORIZATIONS 

I^C(1)=6 
KRSC(2)=55 
KRSC(3)=3 
KRSC(4)=8 
KFSC(5)^5 
KRSC(6)=6 
KBSC(7)--'4 
KFSC(8)=39 
KRSC(9)=13 


KRSC(10)=1 

KRSC(11)=2 

KRSC(12)=2 

KRSC{l3)-2 

KRSC(14)=4 

KRSC(15)=9 

KRSC(16)=7 

KRSC(17)=31 

KRSC(18)=3 

KRSC(19)=5 

KRSC(20)=7 

KRSC(21)=1 

I'vRSC(22)=16 

KRSC(23)=4 

KRSC(24)-7 

KRSC(25)=2 

KRSC(26)=2 

KRSC(27)-6 

KRSC(2n)=0 

KilSC(29)=0 

KRSC(30)=0 

KRSC(31)=0 

KRSC(32)=0 

KRSC(33)=0 

iroar/  T4  \  z=n 

I<RSC(35)=0 

DAY  EQUIPMENT  FOR  F-15E 
JESC(36)=1 
JRSC{37)=-1 
JRSC(38)=1 
JRSC(39)=1 
.mSC(40)=l 
JR£C(41)=1 
JRSC(42)=1 
JRSC(43)=1 
JRSC(44)=1 
JRSC(45)=1 
JRSC(46)=0 
JRSC(47)=0 
JRSC(48)=0 
JRSC(49)=0 
JRSC(50)=0 

F-15E  MANNING  AUTHORIZATION  -  NKJTT  SHIFT  PERSOI'INEI. 
KRSC(36)=7 
KRSC(37)=56 
10^0(38)  =5 
KRSC(39)=10 
KRSC(40)=6 
KRSC(41)=7 
KRSC(42)="6 
KRSC(43)=42 
KRSC(44)=14 


KRSC(45)-2 

KPSC(46)=2 

KRSC(47)=3 

KRSC(48)=3 

KRSC(49)=5 

KRSC(50)=11 

KRSC(51)=9 

KRSC(52)=33 

KRSC(53)=4 

KR3C(54)=6 

I<ESC(55)=8 

K1<SC(56)=2 

KRSC(57)=17 

KRSC(58)=6 

KPSC(59)^9 

KRSC(60)=3 

KRSC{61)=3 

KRSC(62)=8 

KRSC(63)=0 

KRSC(64)=0 

K1RSC{65)=0 

KRSC.(66)=0 

KRSC(67)=-0 

KRSC{68)=0 

KRSr.(69)=0 

KRSC(70)=0 

F-15E  NIOfT  SHIFT  EQUIPMENl’ 

JF{5C(86)=1 

JHSC(87)=1 

JPSC{88)=1 

JR,SC(89)--=1 

JRSC(90)=1 

JRSC(91)=i 

JRSC(92)=1 

.TESC(93)=1 

JRSC(94)=1 

JHSC(9b)=i 

JRSC(96)=0 

J}<SC(97)=-0 

JKSC(98)-0 

JRSC(99)=0 

JESC(100)-C 

ELSE 

WRITE (6,-*)  'ERR  IN  ^/ALUE  OF  TPLANE' ,TPIJ^JE 
ENDII 

****** 

***  READ  IN  DATA  FILES 
CAIJ,  READAT 

•k  idr  it  ir 

****  SE  INITIAL  \7R,UES  FOF  PARAMETERS 
NEAY^C 
Ni  0 
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NPP=0 

NSFT=1 

NBRK=0 

FnAY=0 

GNDABT^O 

NF]jCWN=0 

FHror=o.o 

MSDSOR=0 

ENDS1=0.0 

Et®S0=0.0 

ENDS2=0.0 

SPA=0.0 

XX(2)=0 

XX(4)=0 

XX(6)=0 

NFIX(1)=0 

r^IX(2)=0 

NF1X(3)=0 

NFIX(4)=0 

****  ASSIGN  VALUES  FROM  BLOCK  DATA  FILE 
NPIANE=WCENE(1) 

NSCRTY=WCENE(2) 

NUMSFT=WCENE(3) 

MISSN=vgCENE(4) 

SORIEN^WMISS(l) 

SFT0=WI«IIS3(7) 

SFTl=Wr4ISS(2) 

SFT2=WMISS{3) 

WARM^W1ISS{4) 

Ff’REQ---WMlSS(5) 

TIMFLT^WMISS(6) 

X1=WCENE(2) 

X2=WCENE(1) 

DSGR=X1/X2 

****  AVAILABILITY  OF  RESOUfCEG 

***  PEOPLE  AVAILABILITY  AT  TjIE  BEGINNIIX3  OF  EACH  SHIFT 
lO  60 i  I --16,50 
XX{I)=V(1) 

601  CONTINUf' 

XX  (24) -0.90 
XX(26)-0.P5 
XX(8)=0.65 

***  PEOPi£  AVAIIALULITY  I:AC1?  Tir4E  YOU  ASK  FOR 
DO  b02  1=51,85 
XX(I)=V(2) 

602  COOTINUe 

***  EQUIPMENT  AVAILAhHLlTY  EACH  TIME  YOU  ASK  FOR  IT 
DO  603  I---86,100 
XX(I)=V(3) 

603  CONTTNUE 

'fr-kirick 

****  ADD  UP  PEOPLE  TO  FIND  MANPOV^ER  SPACES  PER  AIRCRAFT 


DO  401  1=1,35 

SPA=SPA+ ( KRSC ( I ) +KRSC ( 1+35 ) ) *XX ( 50+1 ) 

401  Cta^riNUE 

***  READJUST  PEOPLE  AIJjOCATION  FOR  SERVICING  CREW  IN  PEACETTME 
IF  (MxSSN  .EQ.  1)  THEN 

IF  (TPLANE(l)  .EQ.  1)  THEN 
KRSC(2)=KR3C(2)-3 
KRSC(37)=KRSC(37)-2 
KRSC(8)=KRSC(8)-1 

KRSC(43)=KRSC(43)-1 
ELSEIF  (TPLANE(l)  .EQ.  2)  THEN 
KRSC(5)=KRSC(5)-3 
KRSCf40)=KRSC(40)-2 
KRSC(11)=KRSC(11)-1 

KRSC(46)=KRSC(46)-1 

ENDIF 

ENDIF 

★  ★  ★  ★  ★ 

★***  SET  INITIAL  QUAITTITY  OF  SPARES  DEPENDING  ON  THE  SCENARIO 
DO  300  I=11,I^VUC 

IF  (MISSN  .EQ.  1)  THEN 

N5PARE ( I )  =CODES ( 1 , 2 ) +CODES { 1 , 3 ) 

ELSE 

NSPARE( I ) =CODES( I , 2 ) +CODES( I, 3)+CODES( 1,4) 

ENDIF 

NSPA(I)=0 

NSPU(I)=0 

NDEP(lj=0 


300 

CONTINUE 

ick-k'kif 

DEFINE  FAILURE  CLOCKS 

DO  600  1=^11, MAXWUC 

TFAIL(I)=EXPON(XMrBM(I) ,5) 

600 

CONTINUE 

CREATE  PLANES 

r>r\  '^nci  T— 1  fTDT  TNXTU’ 
i,A^  AVV  J.'"  jL  /  IMC  XJTU'IAj 

ATRIB(1)=I 

ATRIB(21)=TNO/ 

PFIL(ATRIB(1) )=2 
CALL  FILEM(2,A'1’RIB) 

200  CONTINUE 
****  * 

*  SET’  UF'  INITIAL  SHIFT  SCHEDULE 

CALL  SCHDL(6, .00000’ ,ATRIB) 

*  BEGIN  FLYING 

CALL  SCHDL(1,TIMFJ,T,ATRIB) 

+  DEFINE  WHEN  TO  CHANGE  FROM  WARMUP  SCHEDULE 
CALL  SCHDL(9,WARM,ATRIB) 

+  SCHEDULE  WHEN  TO  INITIALLY  GAIL  THE  DISPLAY  SUBROUTINE 
CALL  SCHDL(4,23.99,ATRIB) 

WRITE{8,*) 
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WRITE  (*,  Fiyir=  100 )  NNRUN 

•kidrirfc 

*  SETS  UP  HEADER  FOR  OUTPl/r  FILE 

IF  (NNRUN  .NE.  1)  THEN 
RETURN 
ELSE 

WRITC ( UNIT=8 , FMr=50 1 ) 

IF  (TPLANE(l)  .EQ.  1)  THEN 
WRITE ( UNIT=8 , FMr=509 ) 

ELSEIF  (^rPLANE(l)  .EQ.  2)  THEN 
WRITE ( UNIT=8 , FMr=5 10 ) 

ELSE 

WRITE(6,*), 'ERR,  DOES  NOT  RECOQ^IZE  TPLANE  IN  INTLC' 

ENDIF 

WRITE ( UNIT=8 , FMr=504 ) 

WRITE.  ( UNIT=8 ,  FMr=505 ) 

WRITE ( UN1T=8 , FMr=506 ) 

WRITE ( UN1T=8 , FMP^SOV ) 
vmiTE  ( UNIT=8 ,  FMr=508 ) 

WRITE ( UNITES, FMT-502)  WCENE(4) ,WMISS(4)/24.0 
WRI'TE ( UNITES, FMr=50 3)  SCENE(4) 

ENDIF 

***** 

100  FORMAT(lX,  '  RUN  NUMBER  M2) 

500  FORMAT (/,2X, 'DAY  #nE  #MISS  TOT  FH  SGR  FMC%  PMC%  rC%  NMCS% 
1  WCKI  BKGA',/) 

501  PORMAT(  IX,  'SLAM  OUTPUT' ,  / ) 

502  FORMAT(/,  IX, 'WARMUP  SCENARIO  '  ,I2,5X, 'NtJMBER  OF  DAYS  ',F10.4) 

503  FORMAT( / , IX , ' MISSION  SCENARIO ' , I2 ) 

WRITE  ( UNIT=8 ,  FIO'^SOO ) 

504  FORMAT(5X, 'SCENARIO  TYPE:  1  PEACETIME  SCENARIO ',/ ) 

505  PORMAT(5X,'  2  SUWa;  SCENARIO ',/ ) 

506  FORMAT ( 5X , '  3  SUSTAINED  SCENARIO ' , / ) 

507  FORMAT(5X,'  4  lOBILITY  SURGE  SCENARIO:  2 .5  UTE' ,/) 

508  FORMAT(5X,'  5  MOBILITY  SURGE  SCENARIO:  3.0  UTE' ,/) 

509  FORMAT(5X, 'F-15E  SIMULATION',/) 

510  FORI'IAT(  5X,  ' F-15C/D  MSIP  SIMULATION’ ' ,  / ) 

RETURN 

END 

ic'kir-kicifif'k-k'k'^'icic-kic'kititicitiricicicie'k'k'k'k'k'k'k'k'^'k'k'k'k-k'k'k'k'k'k'kic-k'k-k'k-k'kic'k'kir-k-k-kic'k'k'k-kic'k-k'k'k-ic’^ 

*  ALLOK  -  EVENT  8  * 

*  ALLOCATES  MAIOT  RESOURCES  FOR  EACH  TASK  * 

kkkkkkkkkkkkkkkkki^kiikkkkkkisk'kkk'k'k'k'k'k'k'kic’k'kir-k-kkick'kk'kk'k-kk'kk'l;’kk'k'kk'k'k'kit'kirkkk 

SUBROUTINE  ALLOK 
IF  (ATRIB(7)  .EQ.  0)  THEN 

WR1TE(6,*) , 'ERR  IN  ALLOK,  ATRIB(7 )=0 ' ,ATRIB( 1 ) ,ATRIB( 5) 

RETURN 

ENDIF 

NAC=A'1’RIB(  1 ) 

NWUC=ATRIB(5) 

NON=0 

IF  (NSFT  .EQ.  1  .OR.  NSFT  .EQ.  0)  IHEN 
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NADJ=^0 

ELSEIF  (NSFT  .EQ.  2)  THEN 
NADJ=50 
ELSE 

^^^^ITS(6,*) , 'ERR  IN  ALLOK,  NSFT  IS  WRONG' 

ENDIF 

JJ=ATRIB(13) 

IF  fJJ  .EQ.  0)  THEN 
.  =1 
ENUiF 

I=NRESC(NWUC,JJ) 

IF  (I  .EQ.  0)  THEN 

WRITE (6,*) , 'ERR  IN  ALLOK, I=0( 1) ,AWUC, JJ,NRESC ' ,ATRIB( 1 ) 
1  ,AWUC(NWUC) ,JJ,NRESC(NWUC,JJ) 

RETU^ 

ENDIF 

ATRIB(25)=0 

ArRIB(26)=0 

JHELP7=0 

JHELP25=0 

JHE=0 

KHELP7=0 

KHELP25=0 

KHE=0 

LHELP7=0 

LHELP2b=U 

LHE=0 

MHELP7=0 

MHELP25=0 

MHE=0 

NHEI^7=0 

NHELP25=0 

NHE=0 

IHELP7=0 

IHELP25=0 

IHE=0 

rn  'm  / 1  o  7  d  ^  T 

*  ALLOCATION  RULE  1  -  SEIZES  1  TYPE  OF  RESOURCE 

'k'Aic'k 

1  CONTINUE 

JP1=RESC  ( NWIX: ,  JJ ,  1 ) +NADJ 
NP1=QUAN ( NWUC , JJ , 1 ) 

ATRIB(17)=0 

PROBl=LiNFRM(  0 . 0, 1 . 0 , 5 ) 

***  CHECK  AVAILABILITY  OF  SEVEN  LEVEL  MAINT  PERSONNEL 
IF  (TPLANE(l)  .EQ.  1)  'HIEN 

IF  ((JPl-NADJ)  .GE.  4  .AND.  (JPl-NADJ)  .LE.  6)  THEN 
JHELP7=JRSC( 7+NADJ) 

ENDIF 

IF  ((JPl-NADJ)  .EQ.  23  .OR.  (JPl-NADJ)  .EQ.  24)  THEN 
JHELP25=JRSC( 25+NADJ) 
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c 


c 


c 

c 


*** 


ENDIF 

JHE= JHELP7  +  JHELP2  5 
ENDIF 

IF  RESOURCE  IS  AVAILABLE 

IF  (JRSC(JP1)+JHE  .GE.  NPl  .AND.  PROBl  .LE,  XX(0Pl-NAaT+50) )  THEN 
IF  (NPl  .GT.  JRSC(JPl))  THEN 
IF  (JHELP7  .or.  0)  THEN 
A1'RIB(  25 )  =NP1-JRSC  ( JPl ) 

JRSC ( 7+NADJ ) = JRSC ( 7+NADJ )  -ATRIB ( 25 ) 

JA(7)=JA(7)+1 

WRIT’E(6,*), '7  LEVEL  RESC(7)  AVAIL,  #' ,ATRIB(25) ,  JP1,1'IP1 
ELSEIF  (JHELP25  .CT.  0)  THEN 
ATRIB  ( 26 )  =NP1-JRSC  ( vTPl ) 

JRSC  ( 25+NAD.J )  =JRSC  ( 25+NADJ )  -ATRIB  ( 26 ) 

JA(25)=JA(25)+1 

WRITE(6,*), '7  LEVEL  RESC(25)  AVAIL,  #' ,ATRIB(26) , JP1,NP1 
ENDIF 

JRSC(JP1)=0 

JA(JP1)=JA(JP1)+1 

ELSE 

JRSC ( JP 1 )= JRSC ( JP 1 ) -NP 1 
JA(JP1)=JA(JP1)+1 
ENDIF 

SET  COUNIERS 
ATRIB(8)=TNCW 

wkI Tt ( 6 , "  ) ,  '  ALLOK, A.'^C,  JJ,TiF,  # , (fAv”  ,NAC,  JJ,  JPl , I'lPl , lTR3C(  JPl ) 

IF  PARALLEL  MAINT,  IF  RESC  AVAIL,  CONTINUE  WITH  MAINT 
IF  (ATRIB(15)  .EQ.  20)  THEN 
ATRIB(15)=21 
NB=ATRIB(12) 
fnN’UC(NAC,NB,l)=0 

WRITE(6,*) , 'IFESC  AVAIL,21, 1, PARA' , MAC, PARA(NftC) 

ELSEIF  (ATRIB(15)  .EQ.  30)  THEN 
ATRIB(15)=31 

WRITE(6,*) ,  'IRESC  AVAIL, 3 1, 1, PARA' ,NAC,PARA(NAC) 

ENDIF 

RETURN 

ELSE 

JN(JP1)=JN{JP1)+1 
IF  (JHELP7  .GT.  0)  THEN 
JN(7)=JN(7)+1 

WRITE(6,*) , '1:7  LEVEL  RESC{7)  NOT  AVAIL' 

ELSEIF  (JHELP25  .GT.  0)  THEN 
JN(25)=JN(25)+1 

WRITE(6,*) , '1:7  LEVEL  PiiSC(25)  NOT  AVAIL' 

ENDIF 

WRITE(6,*), 'l;RESOURCE  NOT'  AVAILABLE' ,  JPl,  NPl,  JRSC  (JPl) 

IF  (PROBl  .GT.  XX(JPl-NADJ+50) )  THEN 
NON=l 
ENDIF 

ATRIB(17)=JP1 

IF  PARALLEL  MAIITT,  IF  RESC  NOT’  AVAIL  -  TERMINATE  THIS  ENTITY 
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IF  (ATRIB(15)  .EQ.  20)  THEN 
IF  (PARA(NAC)  .EQ.  1)  THEN 
ATRIB(15)-0 
NB=ATRIB(12) 

NF=PFIL(NAC) 

WRITE(6,*) , 'LAST  PARALLEL  ENTITY,  NO  TERM,  FILE', NF, MAC 

PARA(NAC)=0 

CALL  FILEM(NF,ATRIB) 

IF  (ATRIB(13)  .EQ.  1  .OR.  ATRIB(13)  .EQ.  10)  THEN 
MSP ( NWUC ) =MSP ( NWUC ) - 1 

WRITE(6,*) , 'IN  ALLOK, MSP, NWUC', MSP ( NWUC ), NWUC 
ENDIF 
ELSE 

WRITE(6,*), 'NO  RESC,  TERM  ENTm' ,NAC,PARA(NAC) 

PARA(  MAC ) =PARA( NAC ) - 1 

IF  (ATRIB(13)  .EQ.  1  .OR.  ATRIB(13)  .EQ.  10)  THEN 
MSP ( NWUC ) =MSP ( NWUC )- 1 

WRI'rE(6,*) , 'IN  AUQK, MSP, NWUC', MSP ( NWUC )  ,NVJUC 
ENDIF 
ENDIF 

CALL  FILEM(20,ATRIB) 

ATRlB(17)-99 

RETURN 

ELSEIF  (ATRiB(15)  .EQ.  30)  THEN 
WRITE(6,*) , 'NO  RESC,  TERM  ENTITY' ,NAC, PARA (NAC) 

FAKA(  )  =FARA(  NAC )  - 1 

CALL,  FILEM(20,ATRIB) 

ATRIB(17)=99 

IF  {ATRIB(13)  .EQ.  1  .OR.  ATR1B(13)  ,EQ.  10)  THEN 
MSP  ( I'lWUC )  =-MSP  ( NWUC )- 1 

WRITE(6,*) , 'IN  ALLOK, MSP, NWUC', MSP ( NWUC U NWUC 
ENDIF 
RETURN 
ENDIF 

IF  (JJ  .T^.  4  .OR.  JJ  .EQ.  10)  THEN 
IF  (NON  .EQ.  1)  THEN 
ATRIB(23)=1N0W 
CALL  FILEM(12,ATR1B) 

CALL  SCHDL(25,1.0,ATRIB) 

ELSE 

CALL  FILEM(3,ATRIB) 

ENDIF 

ELSE 

IF  (NON  .EQ.  1)  THEN 
ATRIB(23)=TNOW 
CALL  FILEM(15,.ATRIBj 
CALL  SCHDL(25,1.0,ATRIB) 

ELSE 

CALL  FILEM(13,ATRIB) 

ENDIF 

ENDIF 

ATRIB(17)=99 
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RETURN 

ENDIF 

**★* 

*  MiLOCATICW  RULE  2  -  SEIZES  2  TYPES  OF  RESOURCES 
****• 

2  CONTINUE 

JP 1  =^RESC  ( NWIX: ,  J J  r  1 )  +NADJ 
JP2=RESC  ( N/VUC ,  JJ ,  2 )  +NADJ 
NP1=QUAN ( NWUC , JJ, 1 ) 

NP2=QUAN ( NWUC , JJ, 2 ) 

ATRIB(17)=0 
PROBl=UNFRM( 0 . 0 , 1 . 0 , 5 ) 

PRQB2=UNFRM{ 0 . 0 , 1 . 0 , 5 ) 

***  CHECK  AVAILABILIIT  OF  SEVEN  LEVEL  MAINT  PERSONNEL 
IF  (TPLANE(l)  .EQ.  1)  THEN 

IF  {(JPl-NADJ)  .GE.  4  .AND.  (JPl-NADJ)  .LE.  6)  THEN 
JHELP7 = JRSC ( 7 +NADJ ) 

E14DIF 

IF  ((JPl-NADJ)  .EQ.  23  .OR.  (JPl-NADJ)  .EQ.  24)  THEN 
JHELP2 5= JRSC ( 2 5+NADJ ) 

FJIDIF 

JHE= JHELP7  +  JHEIJ>2  5 

IF  ((,JP2-NADJ)  .GE.  4  .AND.  (JP2-NADJ)  .LE.  6)  THEN 
KHELP7  =  JRSC  ( 7 +NADJ ) 

ENDIF 

(  .Orv.  (ur^—riALAj )  ♦ciw* 

KHELP25=JRSC ( 25+NADJ) 

ENDIF 

KHE'^KHELP7+KHELP25 

ENDIF 

IF  RESOURCE  IS  AVAILABLE 

IF  (JRSC(JP1)+JHE  .GE.  NPl  .AND.  PROBl  .LE.  XX( JPl-NADJ+50)  .AND. 
1  JRSC(JP2)+KHE  .GE.  NP2  .AND.  PROB2  .LE.  XX( JP2-NADJ+50) )  THEN 
**  FIRST  RESOURCE 

IF  (I'fPl  .GT.  JRSC(JPl))  THEN 
IF  (JHELP7  .Gl’.  0)  THEN 
ATRI B ( 2 5 ) -NP 1 - JRSC ( JP 1 ) 

JRSC  ( 7+I'lADJ )  =JRSC  ( 7  +NAf)J )  -ATRIB  ( 25 ) 

JA(7)=JA(7)-tl 

C  WRITE(5,*) , '7  1£VEL  RESC(7)  AVAIL,  # ' ,ATRIB( 25) , JP1,NP1 

ELSEIF  (JHELP25  .GT.  0)  THEN 
ATRIB(  26 )  ^I'lPl-JRSC  ( JPl ) 

JRSC( 25+NADJ) =JRSC( 25+NADJ) ~ATRID( 26 ) 

JA(25)=JA(25)^-1 

C  WRn.E(6,*) , '7  LEVEL  RESC(25)  AVAIL,  # ' ,AIRIB(26 ) , JP1,NP1 

ENDIF 

JRSC(JP1)=0 

JA(JP1)=JA(JP1)+1 

ELSE 

JRSC  ( JP  1  )=•  JRSC  ( JP  1 ) -NF 1 
JA(JP1)=JA(JP1)+1 
ENDIF 
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**  SECOND  RESOURCE 

IF  (NP2  -GT.  JRSC(JP2))  THEN 
IF  {KHELP7  .GT.  0)  THEN 
ATRIBf  25 ) =NP2-JRSC ( JP2 ) 

JRSC  ( 7+NADj' )  =JRSC  ( 7+NAaJ)  -ATRIB(  25 ) 

JA(7)=JA(7)+1 

C  WRITE{6,*) , '7  LEVEL.  RESC(7)  AVAIL,  #' ,ATRIB(25) , JP2,NP2 

ELSEIF  (KHEIJ’25  .GT.  0)  THEN 
ATRIB ( 26 ) =NP2- JRSC ( JP2 ) 

JRSC ( 25+NADJ) =JRSC ( 25+NADJ) -ATRIB( 26 ) 

JA(25)=JA(25)+1 

C  WRITE(6,*) , '7  LEVEL  RESC( 25)  AVML,  #' ,ATRIB(26) ,  JP2,NF2 

ENDIF 

JRSC(JP2)=0 
JA{JP2)=JA(JP2)+1 
ELSE 

JRSC ( JF2 ) =JRSC ( JP2 ) -NP2 
JA(.JP2)=JA(JP2)+1 
ENDIF 

SET  MILH  COUNTERS 
ATRIB(8)  =TNOW 

WRITE(6,*) , 'ALL0K,A/C,JJ,TYP,#,#A',NAC,JJ,JP1,NP1,JRSC(JP1) 
WRITE(6,*) , 'AL]jDK,A/C,JJ,TYP,#,#A',NAC,JJ,JP2,NP2,JRSC(JP2) 

***  IF  PARALLEL  MAINTT,  IF  RESC  AVAIL,  CONTINUE  WITH  MAIMT 
IF  (ATRIB(15)  .EQ.  20)  THEN 

NB=ATRIB( 12) 

PWUC(NAC,NB,1)=0 

PWUC(NAC,NB,2)=0 

C  WRITE(6,*),'2RESC  AVML,21, 1,PARA' ,NAC,PARA(NAC) 

ELSEIF  (ATRIB(15)  .EQ.  30)  THEN 
ATRIB(15)=31 

C  WRITE(6,*),'2RESC  AVML,3l,l,PARA',NAC,  PARA(NAC) 

ENDIF 

RETURN 

ELSE 

***  IF  RESOURCES  ARE  NOT  AVAILABLE 
**  FIRST  RESOURCE 

IF  (JRSC(.TPi)+JHE  .LT.  NPi  .OR.  PROBl  .GT.  XX( JPl-NADJ+50) )  THEN 
IF  (JHELP7  .GT.  0)  THEN 
JN(7)=JN(7)+1 

WRITE(6,*),'2A;7  LEVEL  RESC(7)  NOT  AVAIL' 

ELSEIF  (JHELP25  .GT.  0)  THEN 
JN(25)=JN(25)+1 

WRITE(6,*), '2A:7  1£VEL  RESC(25)  NOT  AVAIL' 

ENDIF 

JN(JP1)=JN(JP1)+1 

WRITE(6,*), '2A:RESOURCE  NOT  AVAILABLE' ,JP1, NPI, JRSC (.JPl) 

ATRIB ( 17 )=JP1 

IF  (PRODl  .GT.  XX(JPl--NADJ+50))  TOEN 
NON=l 
ENDIF 
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E30IF 

SECOND  RESOURCE 

IF  (JRSC(JP2)+KHE  .LT.  NP2  .OR.  PROB2  .GT.  XX(  JP2-NADJ+50) )  THEN 
IF  (KHELP7  .GT.  0)  THEN 
JN(7)=.JN(7)H 

WRITE(6,*), '2B;7  LEVEL  RESC(7)  .JOT  AVAIL' 

ELSEIF  (KHELP25  .GT.  0)  THEN 
JN(25)=JN(25)+1 

WRITE(6,*), '2B;7  LEVEL  RESC(25)  NOT  AVAIL' 

ENDIF 

JN(JP2)=JN(JP2)+1 

WTOTE  ( 6,  *), '2B:  RESOURCE  NOT  A\MLABLE ' ,  JP2 ,  NP2 ,  JRSC  ( DP2 ) 
ATRIB{17)=JP2 

IF  (PROB2  .GT.  XX(JP2-NADJ+50) )  THEN 
NON=l 
F.?OIF 
ENDIF 

IF  PARALLEL  MAILT,  IF  RESC  NOT  AVAIL  -  TERMINATE  THIS  ENTITY 
IF  (ATRIB(15)  .EQ.  20)  THEN 
IF  (PARA(NAC)  .EQ.  1)  THEN 
ATRIB(15)=0 
NB=ATRIB(12) 

NF=PFIL(NAC) 

PARA(NAC)=0 

WRITE(6,*), 'LAST  PARALLEL  ENTITY,  NO  TERM,  FILE ' ,NF, ATRIB( 1) 
CALL  FILEM(NF, ATRIP.) 

IF  (A'l’RIB(i3)  .EQ.  i  .OH.  ATRIB(13)  .EQ.  10)  THEN 
MSP ( NWUC ) ^MSP ( NWUC ) - 1 

WRITE(6,*) , 'IN  ALLOK,MSP,NWUC',MSP(NWUC) ,NWUC 
ENDIF 
ELSE 

WRITE(6,*) , 'NO  RESC,  TERM  ENTITY'' , MAC, PARA(Ni-^) 

PARA ( NAC ) =PARA( NAC ) - 1 

IF  (ATRIB{13)  .EQ.  1  .OR.  ATRIB(13)  .EQ.  10)  THEN 
MSP(NWUC)=iyiSP(NWUC)  -1 

WRITE(6,*) ,  'IN  ALLOK,MSP,NWUC',MSP(NWUC)  ,NWUC 
ENDIF 
ENUiF 

CALL  FII.£iyi(20,A'rRIB) 

ATRIB(17)=99 

RETURN 

ELSEIF  (ATRIB(15)  .EQ.  30)  THEN 

WRrrE(6,*) , 'NO  RESC,  TERM  ENTITY' ,NAC, PARA (NAC) 

PARA(NAC ) =PARA( NAC ) -1 
CALL  FILEM(20,ATRIB) 

IF  (ATRIB(13)  .EQ.  1  .OR.  ATRIB(13)  .EQ.  10)  "niEN 
MSP ( NWUC ) -MSP ( NWUC ) - 1 

WRITE(6,*), 'IN  ALJjOK,MSP,NWUC',MSP(NWUC),NWUC 
ENDIF 

ATRIB(17)-99 

RETURN 

ENDIF 
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IF  (JJ  .LE.  4  .OR.  JJ  .EQ.  10)  THEN 
IF  (NON  .EQ.  1)  THEN 
ATRIB(23)=TtWW 
CALL  FILEM(12,ATRIB) 

CALL  SCHDL(25,1.0,ATRIB) 

ELSE 

CALL  FILEM(3,ATRIB} 

ENDIF 

ELSE 

IF  (NON  .EQ.  1)  THEN 
ATRIB(23)=TNCW 
CALL  FILEM(15,ATRIB) 

CALL  SCHDL(25,1.0,ATRIB) 

ELSE 

CALL  FILEM(13,ATRIB) 

ENDIF 

ENDIF 

ATOIB(17)-99 

RETURN 

ENDIF 

ir-t-ic-k 

*  ALLOCATION  RULE  3  -  SEIZES  3  TYPES  OF  RESOURCES 

★  ★  ★  ★ 

3  CONTINUE 
ATRIB(17)=0 

JP 1 =RESC ( NWUC , J J , 1 ) +NADJ 
JP2  =RESC  ( NWUC ,  J  J ,  2 )  1-NADJ 
JP3=RESC ( NWUC , JJ , 3 ) +NADJ 
NP1=QUAN(NWUC,JJ,1) 

NP2 =QUAN ( NWUC , J J , 2 ) 

NP3=QUAN(NWUC,JJ,3) 

PR0B1=UNFRM( 0 . 0 , 1 . 0 , 5 ) 

PROB2=UNFRM( 0 . 0 , 1 . 0 , 5 ) 

PROB3--^UNFRM(  0 . 0 , 1 . 0 , 5  j 

***  CHECK  AVAILABILITY  OF  SEVEN  LEVEL  MAINT  PERSONNEL 
IF  (TPLANE(l)  .EQ.  1)  THEN 

IF  ((JPl-NADJ)  ,GE.  4  .AND.  (JPl-NADJ)  .LE.  6)  THEN 
JHELF'7  =  JRSC  ( 7  -r-NADJ ) 

ENDIF 

IF  ((JPl-NADJ)  ,EQ.  23  .OR.  (JPl-NADJ)  .EQ.  24)  THEN 
JHELP25=v7RSC  ( 25+NADJ ) 

ENDIF 

JKE= JHELP7 + JHELP2 5 

IF  ((.7P2-NADJ)  .GE.  4  .AND.  (JP2-NADJ)  .LE.  6)  THEN 
KHELP7  = JRSC ( 7  +NADJ ) 

ENDIF 

IF  ((JP2-NADJ)  .EQ.  23  .OR.  (JP2-NADJ)  .EQ.  24)  THEN 
KHELP25=JRSC ( 25  t-NADJ) 

ENDIF 

KHE=KHELP7+KHELr25 

IF  ((JP3-NADJ)  .GE.  4  .AND.  (JP3-imDJ)  .LE.  6)  THEN 
LHELP7  = JRSC ( 7  +NADJ ) 
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ENDIF 

IF  ((JP3-NADJ)  .EQ.  23  .OR.  (.TP3-NAai)  .EQ.  24)  THEN 
IHELP25=JRSC( 25+NADJ) 

ENDIF 

LHE=LHEliP7+LHELP25 

ENDIF 

IF  (JRSC(JP1)+JHE  .GE.  NPl  .AND.  PROBl  .LE.  XX( JPl-NAa7+50)  .AND. 

1  JRSC(JP2)+KHE  .GE.  NP2  .AND.  PROB2  .LE.  XX( JP2-NADJ+50)  .AND. 

2  JRSC(JP3)+LHE  .GE.  NP3  .AND.  PROB3  -LE.  XX(JP3-NADJ+50) )  THEN 

**  FIRST  RESOURCE 

IF  (NPl  .GT.  JRSC(JPl))  THEN 
IF  (JHELP7  .GT.  0)  THEN 
ATRIB( 25 ) =NP1-JRSC( JPL ) 

JRSC  (  7  +NAai )  -= JRSC  ( 7  +NADJ )  -  ATRIB  ( 2  5 ) 

JA(7)=JA{7)+1 

C  WRITE(6,*) , '7  LEVEL  RESC(7)  AVAIL,  # ' ,ATRIB(25) , JP1,NP1 

ELSEIF  (JHELP25  .GT.  0)  THEN 
ATRIB  ( 26 ) -^NPl- JRSC  ( JPl ) 

JKC  ( 2  5+NADJ )  =  JRSC  ( 2  5+NADJ ) -ATRIB  ( 2  6 ) 

JA(25)=JA(25)+1 

C  V7RITE(6,*) , '7  LEV'EL  RESC(25)  AVAIL,  #' ,ATRIB(26) ,  JP1,NP1 

ENDIF 

JRSC(JP1)=0 

JA{JP1)=JA(JP1)+1 

ELSE 

JRSC ( JP 1 ) -JRSC ( JP 1 ) -NP 1 
JA(JP1)=^JA(JF1)+1 
ENDIF 

*•*  SECOND  RESOURCE 

IF  (NP2  .GT.  JRSC(JP2))  THEN 
IF  (KHELP7  .GT.  0)  THEN 
ATRIB( 25 ) =NP2-JRSC ( JP2 ) 

JRSC(  7+NADJ )  =JRSC(  7+NADJ)  -.ATRIB(  25 ) 

JA(7)=JA(7)+1 

C  WRITE(6,*) , '7  LEVEL  RESC(7)  AVAIL,  # ' ,ATRIB(25) , JP2,NP2 

Er.SEIF  (KHELP25  .GT.  0)  THEN 
ATRIB(  26 )  -NP2-.JRSC  ( JP2 ) 

JRSC(  25+r^ADJ )  -  JRSC ( 25+NADJ)  -ATRIB(  26 ) 

JA(25)=JA(25)+1 

C  \\RITE(6,*) , '7  LEVEL  RESC( 25)  AVAIL,  #' ,ATRIB(26) , JP2,NP2 

ENDIF 

JPSC(JP2)=0 

JA{JP2)=JA(JP2)+1 

ELSE 

JRSC ( JP2 ) =JRSC ( JP2 ) -NP2 
JA(JP2)=JA(JP2)+1 
ENDIF 

**  THIRD  PvESOURCE 

IF  (NP3  .GT.  JRSC:(JP3))  THEN 
IF  (IiIELP7  .GT.  0)  THEN 
ATRI B  ( 2  5 )  -NP3-.TRSC  ( JP3 ) 

JRSC  ( 7  )  =,TRSC  ( 7+NADJ )  -ATRIB{  25 ) 
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c 


c 


**• 

cc 

cc 

cc 


JA(7)=JA{7)+1 

WRTTE(6,*), '7  LEVEL  RESC(7)  AVAIL,  # ' ,ATRIB(25) , JP3,NP3 
ELSEIF  (LHELP25  .CTT.  0)  THEN 
ATRIB( 26 ) =NP3-JRSC ( JP3 ) 

JRSC ( 25+NADJ ) = JRSC ( 25+NADJ)  -ATRIB (26) 

JA(25)=JA(25)+1 

WRITE(6,*) , '7  LE\Ta:.  RESC(25)  AVAIL,  #' ,Aa’RIB(26) ,  JP3..NP3 
ENDIF 

JRSC(JP3)=0 

JA(JP3)=JA(JP3)+1 

ELSE 

JRSC ( JP3 ) = JRSC ( JP3 ) -NP3 
JA(JP3)=JA(JP3)+1 
ENDIF 

SET  NMH  COUNTERS 
ATRIB(8)=TNCW 

WRITI-;  ( 6  ALLOK ,  A/C ,  JJ ,  TYP  ,#,  #A ',  ATRIB  ( 1 ),  JJ ,  JP 1 ,  NP 1 ,  JRSC  ( JP 1 ) 

WRITE(6,*) ,  'ALIOK,A/C,  JJ,TYP,#,#A' ,ATRIB(  1) ,  JJ,  JP2,NP2,JRSC(  JP2) 
WRITE  ( 6  ALTXtK ,  A/C ,  JJ ,  TYP  .#,  #A ',  ATRIB  ( I ),  JJ ,  JP3 ,  NP3 ,  JRSC  ( JP3 ) 

IF  PARALLEL  MAINT,  IF  RESC  AVAIL,  CONTINUE  WITH  MAINT 
IF  (A1’RIB(15)  .EQ.  20)  THEN 
ATRIB(15)=21 
NB=A1'RIB(12) 

PWUC{NAC,NB,1)=^0 
PWUC(NAC,NB,2)=0 
ELSEIF  (ATRIB(15)  .EQ.  30)  THEN 
ATRIB(15)=31 
ENDIF 
RETORN 
ELSE 

IF  RESOURCES  ARE.  NOT  AVAILABLE 
FIRST  RESOURCE 

IF  {JRSC(JPI)+JHE  .LT.  NPI  .OR.  PR081  .CT.  XX( JPl-NADJ+50) )  THEN 
IF  (JHELP7  ,GT.  0)  THEN 
JN(7)=.I1'J(7)+1 

WRITE(6,*) , '3A:7  LEVEL  RESC(7)  NOT  AVAIL' 

ELSEIF  (JHELP25  .CT.  0)  THEN 

\  j  — Ol'l  ^  j  'X 

WRITE(6,*) , '3A:7  I£VEL  RESC(25)  NCT’  AVAIL' 

ENDIF 

JN(JP1)=JN(JP1)+1 

WRITE ( 6,*) , '3A: RESOURCE  NCa’  AVAILABLE' ,JP  1, NPI,  JRSC (JPl) 
ATRIB(17)=JP1 

IF  (PROBl  .GT.  XX ( JPl-NADJ+50 ) )  THEN 
NON=l 
ENDIF 
ENDIF 

SECOND  RESOURCE 

IF  (JRSC(JP2)+KHE  .LT.  NP2  .OR.  PROB2  .GT.  XX(  JP2-I'JADJ+50) )  THEN 
IF  (KHELP7  .err.  0)  THEN 
JN(7)=JN{7)+1 

WRITE(6,*) , '3B:7  LEVEL  RESC(7)  NOT  AN-TGL' 
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ELSEIP  (KHELP25  .GT.  0)  rriEN 
JN(25)=JI'I(25)+1 

WRITE(6,*) , '3B:7  LEVEL  RESC(25)  NOT  AVAIL' 

ENDIF 

JN(JP2)=JN(JP2)-rl 

WRITE (6,*) , '3B: RESOURCE  NOT  AVAILABLE' ,JP2,NP2,JRSC(JP2) 
ATRIB(17)=JP2 

IF  (PROE2  .GT.  XX(JP2-NADJ+50))  THEN 
NON=l 
ENDIF 
ENDIF 

**■  THIRD  RESOURCE 

IF  (JRSC(  JP3)+LHE  .LT.  NP3  .OR.  PROB3  .GT.  XX(  JP3-NADJ+50) )  THEN 
IF  (mELP7  .GT.  0)  THEN 
J1'I(7)=JN(7)+1 

WRITE(6,*)  , '3C:7  LEVEL  RESC(7)  NOT  AVTVIL' 

ELSEIF  (LHELP25  .GT.  0;  THEN 
JN(25)■-=JN(25)^T 

WRITE(6,*) , '3C:7  LEVEL  RESC(25)  NOT  AVAIL' 

ENDIF 

JN(JP3)=JN(JP3)+1 

WRITE ( 6, *), '3Cs RESOURCE  NOT  AVAILABLE' ,JP3,NP3,JRSC(.TP3) 
ATRIB(17)-=JP3 

IF  (PROB3  .GT.  XX(JP3-NADJ+50) )  THEN 
rXDN-1 
ENDIF 
ENDIF 

***  IF  PARALLEL  MAINT,  IF  RESC  NOT  AVAIL  -  TERMINATE  THIS  ENTITY 
IF  (ATRIB(15)  .EQ.  20)  THEN 
IF  (PARA(NAC)  .EQ.  1)  THEN 
ATRIB(15)=0 
NB=ATRIB( 12) 

NI'=PFIL(NAC) 

PARA(NAC)=0 

WRITE(6,*) , 'LAST  PARALLEL  ENTITY,  NO  TERM,  FILE' ,NF,ATRIB( 1) 
IF  {ATRIB(,\3)  ,EQ.  1  .OR.  A'rRIB(13)  .EQ.  10)  THEN 
MSP  ( N'JUC )  =MSP  ( NWUC )  - 1 

WRITE(6,*), 'IN  ALIjOK,MSP,NWUC',MSP(NWUC),NWUC 
ENDIF 

CALL  FILEM(NF,ATRIB) 

ELSE 

WRITE(6,*) , 'NO  RESC,  TERM  ENTITY' , MAC, PARA (NAC) 

PARA( NAC ) =PARA( MAC ) - 1 

IF  (ATRIB(13)  .EQ.  1  .OR.  ATRIB(13)  .EQ.  10)  THEN 
MSP  ( NWUC )  =MSP  ( N'JUC )  -1 

WRITE(6,*) , 'IN  ALUOK,MSP, NWUC' ,MSP(NWUC) , NWUC 
ENDIF 
ENDIF 

CALL  FILEI'1(20,ATRIB) 

ATRIB(17)=9y 

RETlIRN 

ELSEIF  {ATRIB(15)  .EQ.  30)  THEN 
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WRITE(5,*) , 'NO  RESC,  TERM  ENTITY' , MAC, PARA (NAC) 
PARA( NAC ) =PAI^( NAC ) -1 
CMJi  FILEM(20,ATRIB) 

ATRIB(17)=99 

IF  (A'rRIB(13)  .EQ.  1  .OR.  ATRIB(13)  .EQ.  10)  THEN 
MSP ( NWUC ) =MSP ( NWUC ) - 1 

WRITE(6,*), 'IN  AIJjOK, MSP, NWUC', MSP (NWUC), NWUC 
ENDIF 
RETURN 
ENDIF 

IF  (JJ  .LE.  4  .OR.  JJ  .EQ.  10)  THEN 
IF  (NON  .EQ.  1)  IHEN 
ATRIB(23)=TNCW 
CALL.  FTIJM(12,ATRIB) 

CALL  SCHDL(25,1.0,ATR1B) 

ELSE 

CALL  FILEM(3,ATRIB) 

ENDIF 

ELSE 

IF  (NON  .EQ.  1)  THEN 
A'I'RIB(23)=TNCVJ 
CALL  FILEM(15,ATRIB) 

CALL  SCHDL{25,1.0,ATRIB) 

ELSE 

v-ALuj  r  X  j /rtirvj  d) 

ENDIF 

ENDIF 

ATRIB(17)=99 

RETURN 

ENDIF 

*  ALLOCATION  RULE  4  -  SEIZES  4  TYPES  OF  RESOURCES 

4  CONTINUE 
ATRIB(17)=0 

JPl-PJSSC  ( NWUC ,  JJ ,  1)  +NAaT 
JP2 =RESC ( NWUC , J J , 2 j +NADJ 
JP3=RESC ( NWUC , J J , 3 ) +NADJ 
JP4 -RESC ( NWUC , JJ , 4 ) +NADJ 
NP1=QUAN(NWUC,JJ,1) 

NP2=QUAN(NWUC, JJ, 2 ) 

NP3=QUAN  ( NWIX: ,  JJ ,  3 ) 

NP4=QUAN ( NWUC , JJ , 4 ) 

PROBl=UNFRM(  0 . 0 , 1 . 0 , 5 ) 

PROB2=UNFRM( 0 . 0 , 1 . 0 , 5 ) 

PROB3=UNFRM( 0 . 0 , 1 . 0 , 5 ) 

PROB4=UNFRM( 0 . 0 , 1 . 0 , 5 ) 

***  CHECK  AVAILABILITY  OF  SEVEN  LEVEL  MAINT’  PERSONNEL 
IF  (TPLANE(l)  .EQ.  1)  THEN 

IF  ((JPl-NADJ)  .GE.  4  .AND.  (JPl-NADJ)  .IJi.  6)  THEN 
JHEIJ’7  =JRSC  (  7+NADJ  ) 

ENDIF 
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IF  {(JPi-NADJ)  .EQ.  23  .OR-  (JPl-NADJ)  .EQ.  24)  THEN 
aHEIJ?25=xJRSC  ( 25+NADJ) 

ENDIF 

JHE=JHELP7+JHEL,P25 

IF  ((JP2-NADa)  .GE.  4  .AND.  (JP2-NADJ)  .LE.  6)  THEN 
KHEIiP7=JRSC(  7+NADJ) 

ENDIF 

IF  ((JP2-NADJ)  .EQ.  23  .OR.  (JP2-NADJ)  .EQ.  24)  THEN 
KHEII>25=JRSC  ( 25+RADJ) 

EIOIF 

KHE=KHELP7+RHELP25 

IF  ((JP3-NADJ)  .GE.  4  .AND.  (JP3-NADJ)  -LE.  6)  THEN 
I«ETiP7=JRSC(  7+NADJ) 

ENDIF 

IF  ((JP3-NADJ)  .EQ.  23  .OR.  (JP3-NADJ)  .EQ.  24)  THEN 
LHELP25=JRSC ( 25+NADJ) 

ENDIF 

LHE=mELP7+IiiELP25 

IF  ((JP4-NADJ)  .GE.  4  .AND.  (JP4-NADJ)  .LE.  6)  THEN 
MHELP7=JRSC{ 7+NAEO ) 

ENDIF 

IF  ((JP4-NADJ)  .EQ.  23  .OR.  (JP4-NADJ)  .EQ.  24)  THEN 
MHELP25=JFSC ( 25+NADJ) 

ENDIF 

MHE=MHELP7+NHELP25 

ENDIF 

IF  (JRSC(JP1)+JHE  .GE.  IvIPl  .AND.  PROBI  .LE.  XX( JPl-NADJ+50)  .AND. 

1  JRSC(JP2)+KHE  .GE.  NP2  .AND.  PROB2  .LE.  XX( JP2-NADJ+50)  .AND. 

2  JRSC(JP3)+LHE  .GE.  NP3  .AND.  PF»B3  .LE.  XX( JP3-NADJ+50)  .AND. 

3  JRSC(JP4)+MHE  .GE.  NP4  .AND.  PROB4  .LE.  XX( JP4-NADJ+50) )  THEN 

**  FIRST  RESOURCE 

IF  (NPl  .GT.  JRSC(JPl))  THEN 
IF  (JHELP7  .Gr.  0)  IHEN 
ATRIB  ( 25 )  =NP1--JRSC(  JPl ) 

JRSC  ( 7 +NADJ )  =.  JRSC  ( 7 + NADJ ) -ATRI B  ( 2  5 ) 

JA(7)=JA(7)+1 

C  WRITE(6,*),'7  level  RESC(7)  AVAIL,  #' ,ATRIB(25) , JP1,NP1 

ELSEIF  (JHELP25  .GT.  0)  THEN 
ATRIB ( 26 ) =NP1-JRSC ( JPl ) 

JRSC( 25+NADJ) =JRSC( 25+NADJ) -ATRIE( 26 ) 

JA(25)=JA(25)+1 

C  WRITE(6,*), '7  LEVEL  RESC{25)  AV.JiL,  # '  ,AirRIB(  26) ,  JPl,NPl 

ENDIF 

JRSC(JP1)=0 

JA(JP1)=JA(JP1)+1 

ELSE 

JRSC ( JPl ) =JRSC ( JPl ) -NPl 
JA(JP1)=JA(JP1)+1 
ENDIF 

**  SECCM)  RESOURCE 

IF  (NP2  .GT.  JRSC(JP2))  THEN 
IF  {KHELP7  .GT.  0)  THEN 
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A'rRIB(  2  5 )  =NP2-JBSC  ( JP2 ) 

JRSC ( 7 +NADJ ) = JKSC ( 7 +NADJ ) -ATOIB ( 2 5 ) 

JA(7)=JA(7)+1 

WRITE(6,*), '7  LEVEL  RE3C(7)  AVAIL,  # ' ,ATRIB( 25) , JP2,NP2 
ELSEIF  (K1IELP25  .GT.  0)  THEN 
ATiaB{  26 )  =NP2-JRSC  ( JF2 ) 

JBSC ( 2 5 +NADa ) = JRSC ( 2 5 +NADJ ) -ATRI B ( 2 6 ) 

JA(25)=JA(25)-tl 

WRTTE(6,*), '7  LEVEIj  RESC(25)  AVAIL,  #' ,ATRIB(26) , JP2,NP2 
ENDIF 

JRSC(JP2)=0 

JA(JP2)=JA(JP2)+1 

ELSE 

JRSC ( JP2 ) =JRSC ( JP2 ) -NP2 
JA(JP2)=JA(JP2)+1 
ENDIF 

THIRD  RESOURCE 
IF  (NP3  .Gr.  JRSC(JP3))  THEN 
IF  (IiIELP7  .GT.  0)  THEN 
ATRIB( 25 ) ^NP3-JRSC ( JP3 ) 

JRSC  ( 7  -i-NADJ )  =JRSC  ( 7+NADJ )  -ATRIB(  25 ) 

JA(7)=JA(7)+1 

WRITE{6,*) , '7  LEVEL  RESC(7)  AVAIL,  #' ,ATRIB{25) , JP3,NP3 
ELSEIF  (LHELP25  .GT.  0)  'IHEN 
ATRIB( 26 ) =NP3-JRSC { JP3 ) 

JRSC  ( 25+NADJ )  =.IRSC(  254NADJ)  -ATRIB(  26 ) 

JA(25)=JA{25)+1 

WRITE(6,*) , '7  LEVFI,  RESC(25)  AVAIL,  # ' ,ATRIB(26) , JP3,NP3 
ENDIF 

JRSC(JP3)=0 

JA(JP3)=JA(JP3)+1 

ELSE 

JRSC  ( JP3 )  ==JRSC  ( JP3 )  -FT3 
JA(JP3)=JA(JP3)+1 
ENDIF 

FOURTH  RESOURCE 
IF  (NP4  .GT.  JRSC(JP4))  THEN 
IF  (MHELP7  .GT.  0)  THEN 
ATRI B ( 2  5 ) =NP4 -JRSC ( JP4 ) 

JRSC  ( 7+N7\DJ )  =JRSC(  7+NADJ )  -ATRIB  ( 25 ) 

JA(7)=JA(7)+1 

WRITE(6,*) , '7  LEVEL  RESC(7)  AVAIL,  # ' ,ATRIB( 25 ) , JP4,NP4 
ELSEIF  (MHELF25  .GT.  0)  HIEN 
ATRIB ( 26 ) =NP4-JRSC ( JP4 ) 

JRSC ( 25+NADJ ) ^ JRSC ( 25+NADJ ) -ATRIB ( 26 ) 

JA(25)=JA(25)+1 

WRITE(6,*) , '7  LEVEL  RESC( 25)  AVAIL,  # ' ,ATRIB( 26 ) , JP4 ,NP4 
ENDIF 

JRSC(JP4)=0 

JA{JP4)=JA(JP4)+1 

ELSE 

JRSC  ( .IP4 )  =  JRSC  ( JP4 )  -NP4 


* 

cc 

cc 

cc 

cc 

★  ★★ 


★  •A  * 


JA(JP4)=JA(JP4)n 

ENDIF 

SEl’  MMH  COUNTERS 
ATRIB(8)--=TNCW 

,  'Aijjok,a/c,jj,typ,#,M',atrib(1),jj,jpi,npi,jrsc(Jp1) 

WRITE  ( 6 ,  * ) ,  '  AI JjOK ,  A/C ,  J J ,  TYP ,  # ,  #A ' ,  ATRIB ( 1 ) ,  J J ,  JP2 ,  NP2 ,  JRSC  ( JP2 ) 
WRITE(6,*) ,  'AIJjOK,A/C,JJ,TYP,#,#A',ATRIB(  1)  ,JJ,JP3,NP3,JRSC(JP3) 
WRITE(6,*),  'ALLOK,A/C,JJ,TyP,#,#A',ATRIB(l) , J J , JP4 , NP4 , JRSC ( JP4 ) 
IF  FARALUiL  MAINl’,  IF  RESC  AVAIL,  CONTINUE  WITH  MAINT 
IF  (ATRIB(15)  .EQ.  20)  THEN 
ATRIB( 15) =21 
NB=ATRIB(12) 

PWUC(NAC,NB,1)=0 
PWUC(NAC,NB,2)=C 
ELSEIF  (ATRIB(15)  .EQ.  30)  THEN 
ATRIB(15)=31 
ENDIF 
RETURN 
ELSE 

IF  RESOURCES  ARE  NOT  AVAILABLE 
FIRST  RESOURCE 

IF  (JRSC(JP1)+JHE  .LT.  NPl  .OR.  PROBl  .GT.  XX( JPl-NADJ+SO) )  THEN 
IF  (JHELP7  .GT.  0)  THEN 
JN(7)=JN(7)+1 

WRTTR(fi,*) , '4A:7  T£VEL  RESC(7)  NOT  AVAIL' 

ELSEJF  (UHELP25  .Gi'.  0)  TtlEN 
JN(25)=JN(25)+1 

WR1TE(6,*) , '4A:7  LEVEL  RESC(25)  NOT  AVAIL' 

ENDIF 

JN(JP1)=JN(JP1)+1 

WRITE  ( 6 ,  *• ) ,  '  4 A: RESOURCE  NOT  AVAILABLE ' ,  JPl , NPl ,  JRSC ( JPl ) 

A1’RIB(  17  ^  ^JPl 

IF  (PROBi  .GT.  XX(IPl-NADJ+50) )  THEN 
NON=l 
ENDIF 
ENDIF 

SECOND  RESOURCE 

IF  (JRSC(JP2)-HaiE  .LT.  NP2  .OR.  PROB2  .GT.  XX( JP2-NADJ+50) )  THEN 
IF  (KHELP7  -GT.  0)  THEN 
JN(7)=JN(7)n 

WRITE(6,’'  ) , '4B:7  LEVEL  RESC(7)  NOT  AVAIl,' 

ELSEIF  (KHELP25  .GT.  0)  THEN 
JN(25)=JN(25)+1 

WRITE  ( 6 ,  *  ) ,  '  4B ;  7  LE\’EL  RESC ( 25 )  NOT  AVAIL ' 

ENDIF 

JN(JP2)=JN(JP2) U 

WRITE ( 6 , * ) , ' 4B : RESOURCE  NOT  AVAIl ABLE ' , JP2 , NP2 , JRSC ( JP2 ) 
ATRIB(17)=JP2 

IF  (PROB2  .GT.  XX(JP2-NADJ+50))  THEN 
NON=l 
ENDIF 
ENDIF 
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THIRD  RESOURCE 

IF  (JRoC(JT'3)-iLHE  .LT.  NP3  -OR.  PROB3  .GT.  XX(  JP3-NADJ+50) )  THEN 
IF  (LHELP7  .GT.  0)  THEN 
JN(7)--Jl>I(7)-tl 

WRITE(6,-*) , '4C:7  LEVEL  RESC(7)  NOT  AVAIL' 

EISEIF  (LHELP25  .GT.  0)  THEN 
JN(25)=JN(25)+1 

WRITE(6,*) , '4C:7  lilVEL  RESC(25)  NOT  AVAIL' 

ENDIF 

JN(.JP3)=JN(JP3)+1 

WRITE ( 6, *), '4C: RESOURCE  NOT  AVAIIABLE' , JP3,NP3, JRSC( JP3) 
ATRIB(17)=JP3 

IF  (PROB3  .GT.  XX(J1^3-RADJ+50) )  THEN 
NON=l 
ENDIF 
ENDIF 

rcURTH  RESOURCE 

IF  (JRSC{JP4)+MHE  .LT.  NP4  .OR.  PROB4  .GT.  XX(  JP4-l'lADJ+50) )  THEN 
IF  (MHELP7  .GT.  0)  THEN 
JN(7)=.IN(7)+1 

WRITE(6,*) , '4D:7  LEVEL  RESC(7)  NOT  AVAIL' 

ELSEIF  (MHELP25  .GT.  0)  THEN 
JN(2r3)=JN(25)  *-1 

WRI'rE(6,*), '4D;7  LEVEL  RESC(25)  NOT  AVA-IL' 

ENDIF 

JN(JP4)=JN(JP4)+1 

WRITE(6,*) , '4D:RESOURCE  NOT  AVAILABLE ', JP4 , NP4 ^ JRSC ( JP4 ) 
ATRIB(17)=JP4 

IF  (PROB4  .GT.  XX(.TP4-NADJ+50))  THEN 
NON=l 
ENDIF 
ENDIF 

IF  PARALLEL  MAINT,  IF  RESC  NOT  AVAIL  -  TERMINATE  THIS  EILTITY 
IF  (ATRIB(15)  .EQ.  20)  THEN 
IF  (PARA(NAC)  .EQ.  1)  THEN 
ATRIB(15)=0 
NB=ATRIB(12) 

NF=PFTL(NAC) 

PARA(NAC)=0 

WRITE ( 6,*) , 'LAST  PARAU^EL  EWPI'TY,  NO  TERM,  FILE' ,NF,ATRIB(  1) 
CALL  FILEM(NF,ATRIB) 

ELSE 

WRITE(6,*) , 'NO  RESC,  TERM  ENTITY' ,NAC, PARA (MAC) 

PARA(  NAC )  •-"PARA(NAC ) -1 
ENDIF 

CALL  FILEM{20,ATRIB) 

ATRIB(17)=99 

RETURN 

ELSEIF  (ATRIB(15)  .EQ.  30)  THEN 

WRITE(6,*) , 'NO  RESC,  TERM  ENTITY' ,1n1AC, PARA (NAC) 

PARA ( MAC ) =PARA( MAC ) ~ 1 
CALL  FILEM(20,ATRIB) 


ATOIB( 17) =99 
KEIXJRN 
EllDIF 

IF  (JJ  .LJE.  4  .OR.  JJ  .EQ.  10)  IHEN 
IF  (t40N  .EQ-  3)  THEN 
ATRIB(23)=TMr7lJ 
CALL  FILEM(12,ATR1B) 

CALL  SCHDL(25, 1 .0,ATRIB) 

El^E 

CALL  FILEM(3,A1’RIB) 

EMIIF 

ELSE 

IF  (NJN  .EQ.  1)  TVIEN 
ATRIB(23)=TT»W 
CALI.  FILEM(15,ATRIE) 

CALL  SCHDL(25,1.0,ATRIB) 

ELSE 

CALL  FILEM( 13,ATRIB) 

ENDIF 

ENDIF 

ATOIBI 17) --^99 
RETVRN 
ENDIF 

**** 

*  ALLOCATION  RUIJ;  5  -  SEIZES  5  ITPES  OF  RESOURCES 


corrriNUE 

ATRID(17)=0 

JP 1  =R£SC  ( NWUC ,  vT J ,  1 )  *  NADJ 
JP2=RESC( NWUC, JJ , 2 ) +NADa 
JP3=RESC ( NWUC , 0 J , 3 ) ^NADJ 
JP4 =RESC ( NWUC , J J , 4 ) +NADa 
JP5--RESC  ( NWUC ,  J  J ,  5 )  +NADJ 
NP1=QUAN(NWUC,JJ, 1) 

W2=OUAN(NWU(.:,.7J,2) 

NP3=QUAN ( NWUC , JJ , 3 ) 

IA»T  /  ft1l.1I  IT'  *1  T  ^  \ 

iir  f  i  miv.A...  f  kJ\j  t  ) 

NP5=QUAN(NWUC;,JJ,S) 

PHOB 1 =UNFRM ( 0 . 0 , 1 . 0 , 5 ) 

PROB2=UNFRM( 0 . 0 , 1 . 0 , 5 ) 

PROB3=UNFRM( 0 . 0 , 1 . 0 , 5 ) 

PROB4=UNFRM(0.0, 1.0,5) 

PROBS^UNFTOK  C . 0 , 1 . 0 , 5 ) 

CHECK  AVAlLABJLITlf  OF  SEVEN  LEVEL.  MAINT  PERSONNEL 
IF  (n’LANE(l)  .EQ.  1)  THEN 

IF  ((JPl-NADJ)  .GE.  4  .AND.  (JPl-NADJ)  .LE.  6)  THEN 
JHELP7  =JRSC  (  7 4NADJ  ) 

ENDIF 

IF  ((JPl-NAOJ)  .EQ.  23  .OR.  (JP1-NA!\J)  .EQ.  24)  TliEN 
JHELP25=JRSC( 25+NADJ) 

ENDIF 

JHE=JHELP7 4 JHFLP25 
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IF  (^JP2-NADJ)  .GE.  4  .AND.  (JP2-NADJ)  ,LE.  6)  THEN 
KHELP7= JRSC ( 7  +NADJ ) 

ENDIF 

IF  ((JP2-NADJ)  .EQ.  23  .OR.  (JP2-NAaJ)  .EQ.  24)  THEN 
KHELP2 5= JRSC ( 2 5+NADJ ) 

ENDIF 

KHE- KHELP7 +KHELP2 5 

IF  ((JP3-NADJ)  .GE.  4  .PJID.  (JP3-NADJ)  .LE.  6)  THEN 
IJCLP7=JR£C  ( 7+NADJ ) 

ENDIF 

IF  ({JP3-NADJ)  .EQ.  23  .CR.  (JP3-NADJ)  .EQ.  24)  THEN 
UiELP25-.TRSC  ( 2  5+NAai ) 

ENDIF 

IiIE=LHELP7+mELP25 

IF  ((JP4-NAaJ)  .GE.  4  .AND.  (JP4-NADJ)  .I£.  6)  THEN 
MHELP7=JRSC ( 7+NADJ ) 

ENDIF 

IF  ((.JP4-NADJ)  .EQ.  23  .OR.  {JP4-NADJ)  .EQ.  24)  THEN 
MHELP2 5= JRSC ( 2 5 +NADJ ) 

ENDIF 

KHE=MHELP7  +MHELP2  5 

IF  ((JP5-NADJ)  .GE.  4  .AND.  (.IP5-NADJ)  .IJ-.  6)  THEN 
NHELF7 = JRSC ( 7 +NADJ ) 

ENDIF 

IF  ((JP5-NADJ)  .EQ.  2.^  .OR.  (JP5-NADJ)  .EQ.  24)  IHEN 
NHELF25=JRSC(  25+I'iADJ) 

ENDIF 

NHE=NHELP7 +ra-IELP2  5 
ENDIF 

IF  (JFSC(JP1)+JHE  .GE.  NPl  .AND.  PH3B1  .LE.  XX( JPl-NADJ+50)  .AND. 

1  JRSC(JP2)+KHE  .GE.  NP2  .AND.  PROB2  .LE.  XX( JP2-NADJ+50)  .AND. 

2  JRSC(JP3)+LHE  .GE.  NP3  .AND.  PROB3  ,LE.  XX( JP3-NADJ+50)  .AND. 

3  JRSC( JP4)-t-MHE  .GE.  NP4  .AND.  PROB4  .LE.  XX( JP4-NADJ+50)  .AND. 

4  JRSC(JP5)+NHE  .ffi.  NP5  .AND.  PW3B5  .LE.  XX( JP5-NADJ+50) )  THEN 

FIRST  RESOURCE 

IF  (NPl  .GT.  JRSC(JPl))  THEN 
IF  (.THELP7  .CTT.  0)  THEN 
A'miB(  25 )  =NP1-JI^C  ( JPl ) 

JRSC ( 7+NADJ ) = JRSC ( 7+NADJ )  -ATRIB( 2  5 ) 

JA(7)=JA(7)+1 

WRITE(6,*), '7  LEA'EL  RESC(7)  AVAIL,  #' ,ATRIB(25)  ,JP1,NP1 
ELSEIF  (JHELI'25  .GT.  0)  THEN 
ATRIB( 26 )=NP1-JRSC( JPl ) 

JRSC ( 25+NADJ) =JRSC ( 25+NADJ ) -ATRIB( 26 ) 

JA(25)=JA{25)+1 

WRITE(6,*) , '7  LEVEL  RESC(25)  AVAIL,  # ' ,ATRIB( 26 ) , JP1,NP1 
ENDIF 

JRSC(JP1)=0 

JA(JP1)=JA(JP1)-'1 

ELSE 

JRSC ( JPl ) =JRSC ( JPl ) -NPl 
JA(JP1)=JA(JP1)+1 


ENDIF 

**  SECCMD  RESOURCE 

IF  (NP2  .GT.  JRSC(JP2))  THEN 
IF  (KHELP7  .GT.  0)  THEN 
ATRIB( 25 ) =NP2- JRSC ( JP2 ) 

JRSC ( 7 +NADJ ) = JRSC { 7 +NADJ ) -ATRIB ( 2 5 ) 

JA(7)=JA{7)+1 

C  WRITE(6,*),'7  LEVEL  RESC(7)  AVAIL,  #' ,ATRIB(25) , JP2,NP2 

ELSEIF  (KHELP25  .GT.  0)  THEN 
ATRIB ( 26 ) =NP2-JRSC ( JP2 ) 

JRSC ( 25+NADJ) =JRSC( 25+NADJ) -ATRIB( 26 ) 

JA(25)=JA(25)+1 

C  WRITE(6,*) , '7  LEVEL  RESC(25)  AVAIL,  #' ,ArRIB(26) ,JP2,NP2 

El'IDIF 

JRSC(JP2)=0 

JA(JP2)=JA(JP2)+1 

ELSE 

JRSC ( JP2 ) = JRSC ( JP2 ) - NP2 
JA(JP2)=JA(JP2)+1 
ENDIF 

**  THIRD  RESOURCE 

IF  (NP3  .GT.  JRSC(JP3))  THEN 
IF  (mELP7  .GT.  0)  THEN 
ATRIB  ( 2  5 )  =NP3-.JRSC  ( JP3 ) 

JRSC  ( 7 +NADJ )  -  JRSC  ( 7 +NAD>.T ) -ATRIB  ( 2  5 ) 

C  WRITE{6)*) , '7  IJJVEL  RESC(7)  AVAIL,  #' ,ATRIB(25) , JP3,NP3 

ELSEIF  (LHELP25  .GT.  0)  THEN 
ATRIB(  26 )  =NP.3-JRSC  ( JP3 ) 

JRSC(  25+NADJ )  =JRSC(  25+NADJ) -ATRIB(  26 ) 

JA{25)=JA(25)+1 

C  WRITE(6,*) , '7  LENTIL  RESC( 25)  AVAIL,  # '  ,ATRIB(26 ) ,  JP3,NP3 

ENDIF 

JFvSC(JP3)=0 
JA(JP3)=JA( JP3)+1 
FI£E 

JRSC  ( JP3 )  JRSC  ( JP3 )  -NP3 
JA(JP3)--JA(JP3)+1 
ENDIF 

**  FOURTH  RESOURCE 

IF  (NP4  .GT.  JRSC(JP4))  THEN 
IF  (MHELP7  .Gf.  0)  THEN 
ATRIB  ( 2  5 )  =NP4  -  Jl^C  ( JP4 ) 

JRSC ( 7+NADJ ) =JRSC ( 7  +NADJ ) -ATRIB{ 25 ) 

JA(7)=JA(7)+1 

C  WRITE(6,*) , '7  LEVEL  RESC(7)  AVAIL,  #' ,ATRIB(25) ,.TP4,NP4 

ELSEIF  (MHEIiP25  .Gl'.  0)  THEN 
ATRIB  ( 2  6 )  =I'IP4  •  -  JRSC  ( JP4 ) 

JRSC ( 2  5 +NADJ ) = JRSC ( 2  5  +NADJ ) -ATR I B ( 2  6 ) 

JA(25)=JA(25)+1 

C  WRITE(6,*) , '7  LEVEL  RESC( 25)  AVAIL,  # '  ,AT’RIB(26) , JP4,NP4 

ENDIF 
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JRSC(.JP4)=0 

JA(JP4)^JA(JP4)+1 

ELSE 

JRSC  ( .IP4 )  =  JRSC  ( JP4 )  -NP4 
JA(JP4)=JA(JP4)+1 
ENDIF 

**  FIFTH  RESOURCE 

IF  (NP5  .CT.  JRSC(JP5))  THEN 
IF  (NHELP7  .CT.  0)  THEN 
ATRIB ( 2 5 ) =NP5- JRSC ( JP5 ) 

JRSC ( 7+NADJ ) =JRSC ( 7+NADJ )  -ATRIB( 25 ) 

JA(7)=JA(7)+1 

C  WRITE(6,*) , '7  LEVEL  RESC(7)  AVAIL,  #' ,ATFaB(25) , JP5,NP5 

ELSEIF  (NHELP25  .GT.  0)  THEN 
ATRIB  (26)  ---NP5- JRSC  ( JP5 ) 

JRSC( 25+N/OJ ) =JRSC( 25+NADJ) -ATRIB(  26 ) 

JA(25)-JA{25)+1 

C  WR1TE(6,*) , '7  LEVEL  RESC( 25)  AVAIL,  #' ,ATRIB(26) , JP5,NP5 

EIOIF 

JRSC(JP5)-0 

JA(JP5)=JA(JP5)+1 

ELSE 

JRSC ( JP5 ) = JRSC { JP5 ) -NP5 
JA(JP5)=JA(JP5)+1 
ENDIF 

*  SET  MMH  COUMIERS 

ATRIB(8)=TNCW 

CC  WRITE(R,*),  'ALLOK,A/C,JJ,TYP,#,#A',ATRIB(l) , JJ, JP1,NP1,JRSC(JP1) 

CC  WRITE(6,*),  'ALLjOK,A/C,JJ,TYP,#,#A',ATRIB(1),JJ,JP2,NP2,JRSC(JP2) 

CC  WRITE(6,*),  'ALLOK,A/C,JJ,TyP,#,#A',ATRIB(l) , JJ, JP3,NP3, JRSC( JP3) 

CC  WRITE ( 6 ,  * ) ,  ' ALLOK, A/C ,  JJ, TYP,  # ,  #A' , ATP.IB(  1 ) ,  JJ,  JP4 , NP4 ,  JRSC ( JP4 ) 

CC  WRn’E(6,*) ,  'ALLOK, A/C,  JJ, TYP, #,#A'  ,ATRIB(  1) ,  JJ,  JP5,NP5, JRSC( JP5) 

***■  IF  PARALLEL  MAHSN’,  IF  RE5C  AVAIL,  CONTINUE  WITH  MAINT 
IF  (ATRIB(15)  .Ej.  20)  THEN 
ATRIB( 15) =21 
NB=ATRIB(12) 

P^'JUC(NAC,NB,1)=0 
PWUC(NAC,NB,2)=0 
EI^SEIF  (ATRIB(15)  -EQ.  30)  THEN 
ATR1B(15)=31 
ENDIF 
RETURN 
EIjSE 

***  IF  RESOURCES  ARE  IvlOT  AVAILABLE 
**  FIRST  RESOURCE 

IF  (JRSC(.TP1)+JHE  .LT.  NPl  .OR.  PROBl  .CT.  XX( JPl-NADJ+50) )  THEN 
IF  (JHFLP7  .GT.  0)  THEN 
JN(7)=JN(7)+1 

WRITE(6,*) , '5A:7  LEVEL  RESC{7)  NOT  AVAIL' 

EISEIF  (JHELP25  .GT.  0)  THEN 
JN(25)=JN(25)+1 

WRITE(6,*) , '5A;7  LEVEL  RESC{25)  NOT  AVAIL' 
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ENDIF 

JN(JP1)=JN(JP1)+1 

WRITE ( 6, *),'5A: RESOURCE  NOa’  AVAILABLE' ,JP1,NPJ ,.TRSC(JP1) 
ATRIB(17)=JP1 

IF  (PROBl  .GT.  XX(JPl-NADJ+50) )  THEN 
NC»l=i 
ENDIF 
ENDIF 

**  SECCWD  RESOURCE 

IF  (JRSC(JP2)+KHE  .LT.  NP2  .OR.  PROB2  .(GT.  XX( JP2-NADJ+50) )  THEN 
IF  (KHELP7  .GT.  0)  THEN 
JN(7)=JN(7)+1 

WRITE(6,*) , '5B;7  LEVEL  RESC(7)  MDT  AVAIL' 

ELSEIF  (KHELP25  .GT.  0)  THEN 
JN(25)=JN(25)+1 

WRITE(6,*), '5B:7  LEVEL  RESC(25)  NO!  AVAIL' 

ENDIF 

JN(JP2)=JN(JP2)+1 

WRIITi: (6,*) , '5B: RESOURCE  NOT  AVAILABLE ', JP2 , NP2 , JRSC ( JP2 ) 
ATRIB(17)=JP2 

IF  (PROB2  .GT.  XX(JP2-NADJ+50))  THEN 
NON=]. 

ENDIF 

ENDIF 

**  THIRD  RESOURCE 

IF  (JRSC(JP3)+LHE  .LT.  NP3  .OR.  PROB3  .GT.  XX( JP3-NADJ+50) )  THEN 
IF  (LHELP7'.GT.  0)  THEI'I 
JN(7)=JIvl(7)+l 

WRITE(6,*), '5C:7  LEVEI.  RE.SC(7)  NOT  AVAIL' 

EI^EIF  (LHELP25  .GT.  0)  THEN 
JN(25)=JN(25)+1 

WRITE(6,*), '5C:7  LEVEL  RESC(25)  NOT  AVAIL' 

ENDIF 

JN(JP3)=JN(JP3)+1 

WRIIE^G,*) , '5C: RESOURCE  NOT  AVAILABLE ', JP3 , NP3 ,  JRSC ( JP3 ) 
ATRIB(17)=JP3 

IF  (PROB3  .GT.  XX(JP3-NADJ+-50))  THEN 
NON=l 
EidlF 
ENDIF 

**  FOURTH  RESOURCE 

IF  (,JRSC(JP4)+MHE  .LT.  NP4  .OR.  PROB4  ,GT.  XX( JP4-NADJ+50) )  THEN 
IF  (MHELP7  .Gr.  0)  HEN 
JN(7)=JN{7)+1 

WRITE(6,*) , '5D:7  LEVEL  RESC(7)  NOT  AVAIL' 

ELSEIF  (MHELP25  .GT.  0)  THEN 
JN{25)=JN(25)+1 

WRITE(6,*), '5D;7  LEVEL  RESC(25)  NOT  AVAIL' 

ENDIF 

JN(JP4)=JN{JP4)+1 

WRITE(6,*), '5D:RESOURCE  NOT  AVAILABLE' ,JP4,NP4, JRSC (JP4) 
ATRIB(17)-IP4 
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IF  (PR0B4  .GT.  XX(.JP4-NADJ+50))  THEN 
NCW=1 
EINDIF 
ENDIF 

FIFTH  RESOURCE 

IF  (JRSC(.7P5)+NHE  .LT.  NP5  .OR.  PROB5  .GT.  XX(  JP5-NADJ+50) )  THEN 
IF  (NIiELP7  .GT.  0)  THEN 
JN(7)=JN(7)+1 

WRITE(6,*),'5E;7  LEVEL  PESC(7)  NOT  AVAIL' 

ELSEIF  (NHELP25  .GT.  0)  THEN 
JN(25)=JN(25)+1 

WRITE(6,*), '5E:7  LETTEL  RESC{25)  NOT  AVAIL' 

ENDIF 

JN(JP5)=JN(JP5)+i 

WRITE ( 6, *),'5E: RESOURCE  NOT  AVAILABLE ', JP5 , NP5 , JRSC ( JP5 ) 

ATRIB( 17 ) =JP5 

IF  (PROB4  .GT.  XX(JP5-NADJ+50))  THEN 
NON=l 
ENDIF 
ENDIF 

IF  PARALLEL  MAINT,  IF  RESC  NOT  AVAIL  -  TERMINA'TE  'IHIS  ENTITY 
IF  (ATRIB(15)  .EQ.  20)  THEN 
IF  (PARA(NAC)  .EQ.  1)  lEEN 
ATRIB(15)=0 

^TD— Tvrnr?Tn  /  ^  n  \ 

NF=PFIL(NAC) 

PARA(NAC)=0 

WRITE ( 6, *), 'LAST  PARALLEL  ENTITY,  NO  TERM,  FILE' ,NF,ATRIB( 1) 
CALL  FIUM(NF,ATRIB) 

ELSE 

WRITE(6,*), 'NO  RE.SC,  TERM  ENTITY' ,NAC,  PARA  (NAC) 

PARA( NAC ) =PARA( NAC ) -1 
ENDIF 

CAIoL  FILEM(20,ATRIB) 

ATRIB(17)=99 

RETURN 

ELSEIF  (ATRIB(15)  .EQ.  30)  THEN 

WRITE{6,*), 'NO  RESC,  TERM  ENTITY' , NAC, PARA (NAC) 

PARA{ NAC ) =PARA( NAC ) - 1 
CALL  FILEM(20,ATRIB) 

ATRIB(17)=99 

RETURN 

ENDIF 

IF  (JJ  .LE.  4  .OR.  JJ  .EQ.  10)  THEN 
IF  (NON  .EQ.  1)  THEN 
ATRIB( 23 ) =TNCW 
CALL  FILEM(12,ATRIfi) 

CALL  Sa  7L(25,1.0,ATRIB) 

ELSE 

WRITE(6,*), 'PUT  PLANE  IN  FILE  3,T, ( 1 ) ' ,TNCW,ATRIB( 1 ) ,NNQ( 3) 
CALL  FILEM(3,ATRID) 

ENDIF 
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ELSE 

IF  (NON  .EQ.  1)  THEN 
ATRIB(23)=TNCW 
CALL  FILEM(15,ATRIB) 

CALL  SCEDL(25,1.0,ATRIB) 

ELSE 

CAIL  FILEM(13,ATRIB) 

ENDIF 

ENDIF 

ATRIB(17)=99 

RETURN 

ENDIF 

RETURN 

END 

vt*********************************************************************** 

*  ALSPAR  -  EVENT  17 

*  ALLOCATES  SPARES  FOR  R&R  OR  TO  FILL  HOLES  IN  NMCS  OR  CANN  BIRD  PLANES* 
**************************************************************************** 

SUBROUTINE  ALSPAR 
NWUC=ATRIB(5) 

NAC=ATRIB{1) 

IF  (NSPARE(NWUC)  .GT,  0)  THEN 
ATRIB(17)=0 

NSPA ( NWUC ) =NSPA( NWUC ) + 1 
NSPAJRE  ‘  NWUC '  =NSPARE  { NWUC )  - 1 
NSPR  ( N^^ )  =NSPR  ( NWUC )  + 1 

WR1TE(6,*),'  TAKE  SPARE,  PLANE  =' ,ATRIB{ 1) ,NWUC,NSPARE( NWUC) 

IF  (MSP(NWUC)  .EQ.  0  .AND.  ATRIB(ll)  .EQ.  0)  THEN 
WRITE (6,*), 'IN  ALSPAR,  ERR  IN  MSP' , MSP (NWUC) , NWUC 
ENDIF 

C  WRITE(6,*), 'IN  AI SPAR, MSP, NWUC', MSP (NWUC), NWUC 

IF  (ATRIB(ll)  .FQ.  0)  THEN 
MSP ( NWUC ) =MSP ( NWUC j - 1 
ENDIF 
ELSE 

IF  (A'miB(ll)  .EQ.  2)  THEN 
CALL  FILEM(17,ATRIB) 

WRITE(6,*) , 'FILE  17,  LACKING  SPARE  FOR  HQ' ,ATRIB( 1) ,NWUC 
ELSE 

CALL  FIISM(7,ATRIB) 

WRITE(6,*) , 'FilS  7,  LACKING  SPARE  FOR  PLANE=  ' ,ATRIB( 1) ,NWUC 
NSPU ( NWUC ) =NSPU ( NWUC ) + 1 
ENDIF 

ATRIB(17)-100 

ATRIB ( 7 )  =ATRIB ( 7  )  -^ATRIB  ( 9 ) 

ATRIB(9)=0 

CALL  SaiDL( 18, 0.01, ATRIB) 

A'rRIB(17)=99 

ENDIF 

RETURN 

END 
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*  ★*★★**★★*★★★★**★***★***********★★★★★*★********★****  At  ************ A****** 

*  BPO  -  EVEWl'  22  * 

*  INITIATES  BASIC  POSTFLIOiT  AFTER  THE  LAST  PLANE  HAS  FIjCWN  FOR  THE  * 

*  DAY.  IT  LOOKS  AT  THE  PLANES  THAT  HAVE  FLCWN,  BUT  HAVE  NOT  GC»JE  * 

*  THROUGH  BPO.  IT  ALSO  INITIATES  MAINT  ON  PMC  OR  NON  CRITICAL  PLANES  * 

*  AFTER  ALL  SORTIES  HAVE  BEEN  FLCX'n^  THAT  DAY  * 

****************************  ********************************************* 

SUBROUTINE  BPO 

***  CALL  THIS  SUBROUTINE  AGAIN  TO  CHECK  QUEUES  AGAIN 
IF  (TNCW  .LE.  XX(3)-1.0)  THEN 
CALL  SCHDL(22,1.0,ATRIB) 

El'JDIF 

***  DON'T  DO  BPO  IF  A  SORTIE  IS  RESCHEDULED 
IF  (XX(2)  .GT.  0)  'niEN 
RETURN 
ENDIF 

****  CHECK  QUEUES  FOR  PLANES  NEEDING  BPO 
DO  300  12=2,11 

IF  (12  .or.  2  .AND.  12  .LT.  8)  THEN 
GOTO  300 
ENDIF 

NQ2=NNQ(I2) 

DO  200  1=1, NQ2 
CALL  RM0VE{1,12,ATRIB) 

1'IAC=ATRIB(  1) 

IF  (ATRIB(16)  .EQ.  13)  TriElvI 

*  ALREADY  DONE  BPO 
CALL  FILEM(I2,ATRIB) 

ELSEIF  (SCOUNT(NAC)  .GT.  0)  'THEN 
ATRIB(2)=0 
ATRIB(6)=0 
A'TRIB(11)=0 
ATRIB(16)=11 
ATRIB(17)=0 
ATRIB(5)=3 
ATRIB( 15)=0 
CALL  ENi'EK(7,ATKlB) 

*  SEND  TO  BPO 
ELSE 

*  PLAInIE  DIDN'T  FLY  TODAY,  DON'T  NEED  BPO 
CALL  FILEM(I2,ATRIB) 

EI'IDIF 

200  CCttlTINUE 

300  CONTINUE 
RETURN 
END 

************************************************************************ 

*  CANN  -  EVENT  18  * 

*  LOOKS  FOR  RECEIVER  AND  DONOR  AIRCRAFT  FOR  CANNiaALIZATION.  TFilS  * 

*  SUBROUTINE  IS  CALLED  WHEN  AN  AIRCRAFT  NEEDS  A  SPARE  * 

************************************************************************ 

SUBROUTINE  CANN 
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JJ=A'I'RIB(13) 

IF  (ATRIB(17)  .GT.  0  ,AND.  ATR1B(17)  .LE.  99)  THEN 
AI'RIB(  7 )  ^ArRIB{  7 )  +ATRIB(  9 ) 

ATR]B(9)=0 

NWUC=ATRIB( ''i ) 

NDONOR=0 
GO  TO  60 

ENDIF 

IF  (ATRIB(22)  .EQ.  1  .AND.  ATRIB(9)  .GT.  0)  THEN 
ATRIB(7)=ATRIB(9) 

ATRIB(9)=0 

NWUC=ATRIB(5) 

NDONOR=0 
GO  TO  60 

ENDIF 

IF  (ATR1B(22)  .EQ.  99)  THEN 
NWUC=ATRIB(5) 

NDC»JOR=0 
GO  TO  100 

ENDIF 

*  TAKE  PLANE  FROM  NMCS  QUEUE 

NDCWOR=0 

IF  (NNQ(7)  .GT.  0)  THEN 
NQ7=N1^(7) 

DO  10  I1=NQ7,1,-1 

CAU.  COPY{Il,7,ATRIB) 

NWUC=ATRIB(5) 

WRITE(6,*), 'IN  FILE  7,  COMPARING  WITH  H  Q' ,I1,ATRIB(  1)  ,NWJC 

*  COMPARE  WITH  HANGAR  QUEENS  IN  a.lEUE  17 
IF  (NNQ(r7)  .GE.  1)  THEN 

C  WRITE(6,*) , 'IN  FILE  17,  CHEQCING  H  Q  QUEUE' , II ,ATRIB( 1) ,NWUC 

DO  20  I2=1,NNQ(17) 

CALL  COPY(I2,17,ATRIB) 

NAC1=ATRIB( 1 ) 

MWUC=A1’RIB{5) 

IF  (NVTUC  .EQ.  MWUC)  THEN 
GO  TO  20 
ENDIF 

IF  (MWLK:  .EQ.  0)  THEN 

WRITE(6,*) , 'FOUND  A  H  Q  DONOR  IN  Q  17 ’ ,ATRIB( 1 ) ,NWUC 
M]=5 
NQ^17 
NIl-Il 
NDONOR=I2 
GO  TO  40 
ENDIF 

DO  30  13=1,4 

MWUC=WCANN ( NAC 1 , I 3 ) 

IF  (NWUC  .EQ.  MWUC)  THEN 
GO  TO  20 
ENDIF 

IF  (MWUC  .EQ.  0)  TIEN 
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WRITE(6,*),  'FOUND  A  H  Q  DOOR  IN  Q  17 '  ,ATRIB(  1)  ,N^VUC 
M]=I3 
ND0N0R=I2 
NQ---17 
NIl-Il 
C30  TO  40 
ENUIF 

30  CONTINUE 

20  CONTINUE 

ENDIF 

*  IF  NOTHING  IN  QUEUE  11  CAN  DONATE  AN  LRU,  LOOK  AT  NMCS  QUEUE 

IF  (NNQ(7)  .GE.  2)  lUEN 

WRITE(6,*), 'IN  FILE  7,  CHECKING  I'JMOS  QUEUE ', II, ATRr6(  1)  ,NWUC 
DO  50  I5=1,NNQ(7) 

IF  (15  .EQ.  II)  THEN 
QD  TO  45 
ENDIF 

CALL  COPY(I5,7,ATRIB) 

MWUC=A'TRIB(5) 

IF  (NWUC  .NE.  MWUC)  THEN 
NI1=I1 
Ml=l 
NQ-7 

*  ONCE  REMOVE  RECEIVER  A/C,  DONOR  A/C  IS  ONE  LESS  IN  Q  7 
NDONOR=I5 

miTE(6,*) , 'FOUND  DOI'IOR  A/C  IN  Q  7 '  ,ATRIB(  1)  ,NWUC,NDa}OR 
GO  TO  40 
ENDIF 

45  CONTINUE 

50  CONTINUE 

ENDIF 

10  CONTINUE 
ENDIF 

WRITE ( 6 ,  * ) ,  ' NO  CANNIBALIZATION  IS  POSSIBI^E ' 

RETURN 

******* 

40  CONlTNuE 

CALL  RM0VE{NI1,7,ATRIB) 

A'i’RIB(22)=l 
100  CONTINUE 

IF  (ATRIB(17)  .GTT.  99)  THEN 
ATRIB( 7 )=2 . 0*ATRIB( 7 ) +0 . 25 

WRITE(6,*) , ' (17) ,ATRIB(7)  WAS  ' ,ATRIB( 17 ) ,ATRIB( 7 ) /2 . 0 
ELSE 

*  REESTABLISH  ATR1B(7)  TO  CONTINUE  MAINT(l/.33) 

ATRIB ( 7 )  =ATRIB ( 7 ) *3 . 0 

ENDIF 

A'TRIB(11)=1 
ATRIB(13)=1 
ATRIB(18)=0 
ATRIB(5)=NWUC 
60  CONTINUE 
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CALL  TSHIFT 

WRITE(6,*) ,  'CANN,TIME='  ,TNCW,  'PLANE-' , ATRIB(  1 )  ,NWUC 
WRITE(6,*),'  1ST  SHIFT=',ATRIB(7), '2ND  SHIFT-' ,ATRIB(9) ,ATRIB( 1) 
IF  (ATRIB(7)  .LE.  0)  THEN 
CALL  FILEM(5,ATRIB) 

ELSE 

CALL  El'nT:R(9,Al’RIB) 

ENDIF 

*  NOW  TAKE  CARE  OF  THE  DONOR  PLANE,  PLACE  INTO  HANGAR  QTJEEN  QUEUE 
IF  (NDCMIR  .GT.  0)  THEN 

CALL  RMOVE(NDONOR,NQ,ATF.1B) 

IF  (Ml  .EQ.  5)  THEN 
ATRIB(M1)-NWUC 
ELSE 

NAC=ATRIB(1) 

VO\NN  ( NAC ,  Ml ) -NWUC 
ENDIF 

WRITE ( 6,*) , 'FILING  IN  HANGAR  Q' ,ATRIB( 1 ) ,NWUC 

*  IF  PUT  PLANE  IN  HANGAR  QUEEN  QUEUE,  TAKE  OUT  OF  PMC  QUEIIE 
IF  (ATRIB(6)  .EQ.  99)  THEN 

ADJUST-TNCW-ATRIB(  3 ) 

WMDr(ATRIB(5)  )=WMDT(ATR,IB(5)  )+ADJUST 
WRITE(6,*) ,TNCW, 'PLANE  TO  HQ',NWUC,ADJ 
ATRIB(6)=0 
ENDIF 

*  BEGIN  20  DAY  HANGAR  QUEEN  TIMER 
IF  (ATRIB(23)  .EQ.  0)  THEN 

ATRIB(23)=TNOW 

CALL  SCHDL(23,TRIAG(478. 0,480. 0,482.0, 5), ATRIB) 

ENDIF 

CALL  FILEM( 17, ATRIB) 

EN17IF 

RETURN 

FJO 

'ki(iiciri^i('kirifie'kic-kiri^^iric'kif'k'k'ki('kiciririf'k’k'k’k'k'k'frir’k'k'^i('k'kif'kir-^-k-k-k’k'k'k'k'ir-k'k'k'k'k'k'k'k'k'A:'kiririririr'k 

*  CHa'xCD  -  EVENT  28  * 

POR  F-19  C/D  SlrfilLATION 

*  CHECKS  FAILURE  CLOCK  WITH  FLYING  HOURS,  DETERMINES  WHICH  WUCS  HAVE  * 

*  FAILED  AND  WHAT  KIND  OF  MAINTENANCE  IS  PERFORMED  FIRST.  IF  NO  * 

*  FAILURE,  PLACE  INTO  THRUFLIOfT  OR  BPO  * 

****^*ilt:fr********  ******Tti*r**iV******-^riV****  Jr  **********  *****  +  ****-**-****^f'*fi*f**' 

SUBROUTINE  CHCKCD 
INITGER  TEMPi(40)  ,TEMP2(40) 

NAC-ATRIB(l) 

*  CHECK  WHICH  FILE  IS  APPROPRIATE  AFTER  MAINT 
NA=0 

NG=0 

N(3I=0 

NNON-0 

DO  580  1=1,40 

IF  (PWUC(NAC,I,2)  .EQ.  1)  THEN 
NA-NA+1 
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ELSEIF  (P'VUC(NAC,I,2)  .EQ.  2)  THEN 
NG=NG+1 

ELSEIF  (PWUC(NAC,I,2)  .EQ.  3)  THEN 
NGN=NGN+1 

ELSEIF  (PWIX:(NAC,I,2)  .EQ.  5)  HEN 
NN0N=NN0N+1 
ENDIF 

580  CONTINUE 

IF  (NA  .GT.  0)  THEN 
PFIL(NAC)=10 
ELSEIF  (NG  .CT.  0)  THEN 
PFIL(NAC)=9 

ELSEIF  (NOI  .GT.  0)  THEN 
PFIL(NAC)=8 

ELSEIF  (NNON  .CTT.  0)  THEN 
PFIL(NAC)=1I 
ELSE 

PFIL(NAC)-2 

ENDIF 

***  BEGIN  CHECKING  FOR  FAILURES 
IF  (ATRIB(2)  .GT.  0)  THEN 
GO  TO  999 
ENDIF 
NA=0 
NNON=0 

**•*  DETERMINE  IF  FAILURE  OCCURRED.  IF  FAILURE  DID  OCCUR  IT 
***  CRITICAL. 

FHGA^ATRIB(27) 

DO  ]00  I-11,MAXWUC 

IF  (FriTOT+niGA  .GE.  TFAIL(I))  THEN 
TFAIL ( 1 ) =FHTOT+FHGA+EXPON { XMrBM( I ) , 5 ) 

DO  101  11=1,40 

IF  (PMAINT(NAC,I1,1)  .EQ.  0)  THEN 
PMAINr(NAC,Il,l)=I 
PROBl=UNrRM{ 0 . 0 , 1 . 0 , 5 ) 

IF  (PROBl  .LE.  CRITA(I)  .OR.  FHGA  .GT.  0)  THEN 

TO  mn  TVTO  r’OT'T'Tr’AT  OnTI  TIOi:* 

PMAINT(NAC,I1,2)=1 

NA=NA+1 

WBRK(I)=WBRK(I)+1 

WRITE ( 6 , * ) , 'AIR/AIR  CF,FHGA' , ATRIB( 1 ) , I , FriGA 
GO  TO  100 

ELSE 

*  NON  CRITICAL  FAILURE 

PMAINT(NAC,I1,2)=5 
NNON=NNON+l 

C  WRITE{6,*), 'NON  CF',ATRIB(1),I 

GO  TO  100 
ENDIF 

ELSEIF  (11  .EQ.  40)  THEN 

1^ITE(6,*) , 'ERR  IN  QICKCD,  40  OR  MORE  FAILURES' ,ATRIB( 1) ,I 
ENDIF 
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101 

100 

*** 


999 

★  -f.-  ★  *  -A 

★ 

★ 

T*r 


113 


111 

107 

***** 


COOTINUE 

ENDIF 

COOTINUE 

PROB2=UNFRM{ 0 . 0 , 1 . 0 , 5 ) 

DETERMINE  IF  FAILURE  RESULTED  IN  BREAK 

IF  (NA  .CT.  0  .AND.  RIGA  .EQ.  0  .AND.  PROB2  .LE.  XBRK(l))  THEN 
NBRK=NBRK+1 
ATRID(6)=2 

WRIl-E^e,*) , 'BREAK  DLTE  TO  A/A  FAILURE' ,ATRTB(  1) 

ENDIF 

CONTINUE 

NA=0 

NNON=0 


BEGIN  CHOOSING  MAINT  FOR  MULTIPLE  FAILURE  AIRCRAFT 
ONLY  FAILURES  ARE  EITHER  A/A,  OR  NON  CRITICAT. 

FIX  ALL  AIR  TO  AIR  FAILURES 
DO  113  IQ=1,40 

IF  (PMAINr(NAC,lQ,2)  .EQ.  1)  THEN 
NA=NA+1 

ELSEIF  (PMAlNr{NAC,IQ,2)  .EQ.  5)  THEN 
NNON=NNON+l 
ENDIF 
CONTINUE 

IF  (NA  .GT.  C)  THEN 
FCRIT(NAC)-1 
CALL  SCHDL(30,0.0,ATRIB) 

RETURN 

ENDIF 

IF  (NNON  .GT.  0)  THEN 
PFIL(NAC)=11 
DO  107  17=1,40 

IF  (PMAINr(NAC,I7,2)  .EQ.  5)  THEN 
DO  ni  18=1,40 

IF  {PWUC(NAC,I8,1)  .EQ.  0)  THEN 
PWUC(NAC, 18 , 1 ) =PMAINr(NAC, 17 , 1 ) 
tq  t \  =:pMaTNTP/Mnr’  tt  0\ 

PMAINT(l^IAC,I7,l)=0 

PMAINr(NAC,I7,2)=0 

WRITE(6,*), 'FILE  NONCF  N  PWUC,Q11 ' ,NAC,PWUC(NAC, 18, 1) 
GO  TO  107 

ELSEIF  (18  .EQ.  40)  THEN 

WRnE(6,*) , 'A/C  ALREADY  HAS  40  OTHER  FAILURES ' ,NAC 

ATRIB(2)=100 

CALL  SCHDL(29,0.0,ATRIB) 

RETURN 

ENDIF 

CONTINUE 

ENDIF 

CONTINUE 

ENDIF 

IF  NO  MAINT  NEEDS  TO  BE  DONE,  COMPLETE  SOME  TYPE  OF  THRUFLIGHT 
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CALL  CHECK2 

RETURN 

END 

*  CHCKE  -  EVENT  3  * 

*  FOR  F-15  E  SIMULATION  * 

*  CHECKS  FAILURE  CLOCK  WITH  FLYING  HOURS,  DETERMINES  WHIQI  WUCS  HAVE  * 

*  FAILED  AND  WHAT  TfPE  OF  MAINTENANCE  IS  PERFORMED  FIRST.  IF  NO  * 

*  FAILURE,  PLACE  INTO  THRUFLIGHT  OR  BPO  * 

^i(icirir'kiritir'k'k'kiriririiC'kir'k'^'k'kir’kii:'ieiei('k-ki(^'k-^:ificic‘ki{it-Air'kii’k'k’k'k'k'iei('kic'k'k'k'kit’kici>:-k-k'k'ki(’k'k'kiKieir 

SUBROUTINE  QICKE 

INTEGER  TEMP1(40),TEMP2(40),JPX(5),NPX(5) 

NAC=ATRIB(1) 

***  CHECK  WHICH  FILE  IS  APPROPRIATE  AFTER  MAINT 
NA=0 
NG=0 
NGN=0 
NNON=0 

DO  580  1=1,40 

IF  (PWUC(NAC,I,2)  .EQ.  1)  THEN 
NA=NA+1 

ELSEIF  (PWUC(NAC,I,2)  .EQ.  2)  THEN 
NG=NG+1 

ELSEIF  (PWUC(NAC,I,2)  .EQ.  3)  THEN 
NGN=N(3^+1 

ELSEIF  (nVUC(NAC,I,2)  .EQ,  b)  THEN 
NNON=NNON+l 
ENDIF 
580  CONTINUE 

IF  (NA  .GT.  0)  THEN 
PFIL(NAC)=10 
ELSEIF  (NG  .or.  0)  THEN 
PFIL(NAC)=9 

ELSEIF  (NO^  .CT.  0)  THEN 
PFIL(NAC)=8 

ELSEIF  (NNON  -GT.  0)  THEN 
PFIL(N.AC)=11 
ELSE 

PFIL(NAC)=2 

ENDIF 

***  BEGIN  CHECKING  FOR  FAILURES 
IF  (ATRIB(2)  .GI'.  0)  THEN 
GO  TO  999 
ENDIF 

DETERMINE  IF  FAILURE  OCCURRED.  IF  FAIUJRE  DID  OCCUR  WAS  IT  CRIT 

NA=0 

NG=0 

NB=0 

Na'l=0 

NNON=0 

FHGA=A'1HIB(27) 

DO  100  I=11,MAXWIX: 
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it 


* 


IF  (FmUT+FHGA  .(X.  TFAIL(I})  THEN 
TFAIL(  1 )  =F7nUr+FHy^+EXPCW(  XMTEtf^l  1 ) ,  5 ) 

DO  101  11-1,40 

IF  (PMAINT(NAC,I1,1)  .E^.  0)  THEN 
PMAINT(NAC,H,1)=I 
IF  (ATRIB(28)  .EQ.  1)  IHEN 
PRC®1=CRITA(  I ) 

EI^EIF  (ATRIB(28)  .EQ.  3)  THEN 
PROBl=CRITG(  I )  -K:R1TA(  1 ) 

ELSEIF  (ATRIB(28)  .EU.  5)  ITIEN 
PROBi=cRiTB(  I )  -k:ritg(  I )  -K:RITA(  I ) 

ELSEIF  (ATRIB(28)  .EQ.  4)  THEN 
PRCBi-CRiixa^+CRiTBi  1 )  -k:ritg(  I )  -K:RITA{  1 ) 
ELSEIF  (ATR1B{28)  -EQ.  2)  'HIEN 
PROB1=1.0 
EliSE 

PROBl=UNFRM( 0 . 0 , 1 . 0 , 5 ) 

ENDIF 

IF  (PROBl  .LE.  CRITA(I))  'IHEN 
AIR  TO  AIR  CRITICAL,  FAILURE 
PMAim'(NAC,Il,2)=i 
NA-NA+1 


WRITE(6,*) , 'AIR/AIR  CF' ,ATRIB{ 1 ) , I 
C30  TO  100 

ELSEIF  (PROBl  .LE.  CRITG( I ) +CRITA( 1 ) )  THEN 


PMAINT(NAC,I1,2)=2 

NG=NG+1 


WRITE(6,*) , 'A/G  CF',ATRIB(1),I 
GO  TO  100 


ELSEIF  (PROBl  .LE.  CRITB(I)4CRITG{I)+CRITA(I) )  THEN 
D^JAL  ROLE  CRITICAL.,  FAILURE 
P^^AIN^(NAC,I1,2)=4 
NB-NB+1 


WBRK(I)--=WBRK(I)+1 

WRI1E(6,*), 'DUAL  CRITICAL  FAILURE' ,ATRIB( 1) , I 
GO  TO  100 

ELSEIF  (PROBl  .I.E.  CRITC1J-K:RITB(  1 ) +CRITG(  I  )-tCRITA(  I) )  THEN 
A/G  NUCLFAR  CRITICAL  FAILURE 
PMAINr(NAr.,Il,2)=3 
NGN=N3^+ 1 

WRITE(6,*),  'A/'G  NUCLEAR  CF' ,ATRIB(  1 ) ,  I 
GO  TO  iOO 
ELSE 

NON  CRITICAL  FAII.URE 

PMAINT(NAC,ll,2)-5 

IMLN-NNON+l 

WRITE(6,*) , 'NON  CF',ATR1B(1),I 
GO  TO  100 
ENDIF 


ELSEIF  (I]  .EQ.  40)  IHEN 

L4RITE(6,*), 'ERR  IN  CHQ^E,  40  OR  MORE  FAILURES ' ,ATRIB( i ), I 


E-40 


ENDIF 

101  Can’INUE 
EIOIF 
100  CONTINUE 

PROB2=UNFRM( 0 . 0 , 1 . 0 , 5 ) 

***  DETERMINE  IF  FAILURE  RESULTED  IN  BREAK 
IF  (FHGA  .EQ.  0)  THEN 
IF  (iro  .GT.  0)  THEN 
ATRIB(6)=1 

IF  (PROB2  .LE.  XBRK(3))  THEN 
NBRK=NBRK+1 
ATRIB(6)=2 

C  WRITE(6,*) , 'BREAK  DUE  TO  DUAL  FAILURE' ,ATRIB(1) 

ENDIF 

ELSEIF  (NA  .CT.  0)  THEN 
ATRIB(6)=1 

IF  ((PROB2  .LE.  XBRK(l)  .OR.  PROB2  .LE.  XBRK(2))  .AND. 

1  (NG  .GT.  0  .OR.  PFIL(NAC)  .EQ.  9))  THEN 

NBRK^NBRK+1 
ATRIB(6)=2 

C  WRITE  ( 6 ,  * ) ,  '  BREAK  DUE  TO  FIRST  COMB  OF  FAILURES ' ,  ATRIB  ( 1 ) 

ELSEIF  ((PROB2  .LE.  XBRK(l)  .OR.  PROB2  .LE.  XBRK(4))  .AND. 

1  (NGN  .GT.  0  .OR.  PFIL(NAC)  .EQ.  9))  THEN 

NBRK=t'^3RK^-l 
ATRIB(6)=2 

C  WRITE{6,-*) ,  'BREAK  DUE  TO  SECOND  COMB  OF  FAILURES'  . ATRIB ( ] ) 

ENDIF 
ENDIF 
ENDIF 

999  CONTINUE 

*  BEGIN  CHOOSING  MAINT  FOR  MULTIPLE  FAILURE  AIRCRAFT 

NA=0 

NG=0 

NB=0 

NGN=0 

NNON=0 

DO  113  IQ=1,40 

IF  (PMAINT'(NAC,IQ,2)  .EQ.  1)  THEN 
NA=NA+1 

ELSEIF  (PMAINT(NAC,IQ,2)  .EQ.  2)  THEN 
NG=NG+1 

FESEIF  (PmiNT(NAC,IQ,2)  .EQ.  3)  THEN 
NQ'J^NGN+l 

ELSEIF  (PMAINr{NAC,IQ,2)  .EQ.  4)  THhN 
NB=NB+1 

ELSEIF  (PMAINr(NAC,IQ,2)  .EQ.  5)  THEN 
NNON=NNON+l 
ENDIF 

113  CONTINUE 

★  ★★  iric-h 
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*  FIX  ALL  DUAL  FAILURES 
****** 

IF  (NB  .GT.  0)  THEN 
FCRIT(NAC)=4 

C  CALL.  SCHDL(30,0.0,ATRIB) 

CALL  PARAP 
RETURN 
ENDIF 

*  tAt  +  W** 

*  DETERMINE  TYPE  OF  MAIN!  WHEN  COMBINATION  OF  FAILURES 

*  A-  ★  ★  *  ★ 

*  COMBINATION  OF  A/A  AND  A/G  FAILURES 
****** 

IF  (NA  .or.  0  .AND.  NG  .C?r.  0)  THEN 
IF  (PFIL(NAC)  .EQ.  9)  THEN 

*  PLANE  WAS  A^A  PMC,  FIX  A/A  FAILURES 
FCRIT(NAC)^1 

CALL  SCHDL(30,0.0,ATRIB) 

RETURN 

ELSEIF  (PFIL(NAC)  .EQ.  10)  THEN 

*  PLANE  WAS  PJG  PMC,  FIX  A/G  FAILURES 
FCRIT(NAC)=2 

CALL  SCHDL(30,0.0,ATRIB) 

RETURN 

t:»t  nTr> 
uXJlJU 

*  PLANE  HAS  A/G  NUC  OR  NON  CRIT  FAILURES,  FIX  EITHER  A/G  OR  A'A 

* 

*  WHEN  12=2,  FIX  A/G  FAILURES  FIRST  IF  REGC  AVAIL 

*  WHEN  12=1,  FIX  A/A  FAILURES  NEXT  IF  RESC  AVAIL 
DO  311  11=2, 1,-1 

NUMA=0 

NUMN=0 

NUMr=0 

DO  301  1=1,40 

IF  (PMAINT(NAC,I,2)  .EQ.  II)  THEN 
JWUC=PMAINr  ( NAC ,  1 , 1 ) 

IF  (NSFT  .EQ.  1)  THEN 
NADJ=0 

ELSEIF  (NSFT  .EQ.  2)  THEN 
NADJ=50 
ENDIF 

I99=NRESC(JWUC,1) 

I4RESC=0 

DO  302  12=1,199 

.ll’X (  T9 )  =RESCl  JWUC,  1,12)  )-NADJ 
NPX ( 19 ) =QUAN( JWUC, 1,12) 

IF  { JRSC( JPX(I2) )  -GE.  NPX(I2))  THEN 
MRESC=I4RESC+1 
ENDIF 

302.  CONriNUE 

IF  (MRESC  .EQ.  199)  THEN 

*  RESC  /\RE  AVAIL,  COHriNUE  WITH  MAINT 
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NUM?*=NUMA+1 

ELSE 

NUMN=NUI-1N+1 

ENDIF 

ENDIF 

301  CONTINUE 

NUM^NUMA.-1-NUMN 
IF  (NUMA  .EQ.  NUMT)  THEIJ 
FCRIT(NAC)=I1 
CALL  SCHDL(30,0.0,ATR1B) 

RETURN 

ENDIF 

311  COOTINUE 

* 

*  IF  NO  RESC  AVAIL,  FIX  THE  TYPE  OF  FAILUl^  THAT  HAS  THE  MOST  PMC  A/C 

* 

IF  (NNQ(9)  .GT.  NNQ(IO))  THEN 
FCRrT(NAC)=l 
ELSE 

FCRIT(NAC)-2 

ENDIF 

CALL  SCHDL(30,0.0,ATRIB) 

RETURN 

ENDIF 

ENDIF 

*  CHECK  TO  SEE  HOJ  MANY  AVAILABLE  SPACES  IN  PWUC 

NUMPA=0 
DO  200  1=1,40 

IF  (R%TK:(NAC,I,1)  .EQ.  0)  THEN 
NUMPA=NUMPA  +  1 
ENDIF 
200  COWITNUE 

•k'k’k’k'k'k 

*  COMBINATION  OF  A/A  AND  A/G  NUC  FAILURES 

*  Tf  ★  Vk'  ★  ★ 

IF  (NA  .Gr.  0  .AND.  NGN  .GT.  0)  THEN 
IF  (PFIL(NAC)  .EQ.  9)  THEN 

*  PLANE  IS  NMC,  FIX  A/'A 
FCRIT(NAC)=1 

CALL  SCHDL(30,0.0,ATRIB) 

RETURN 

EISE 

*  PLAN13  IS  A/G  PMC,  FILE  INTO  Q  10,  DO  NON  CRIT  FAILS  FIRST 
PFIL(NAC)=10 

CALL.  CHCKE2  ( NNON ,  NUMPA,  NA+NO^  ,1,3) 

IF  (AmiB(2)  .EQ.  100)  TflEN 
RETURN 
ENDIF 
ENDIF 
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EN)3IF 

•kick’k'k'k 

*  CC^IBINATION  OF  A/G  AND  A/G  NUC  FAILURES 
****** 

IF  (NG  .GT.  0  .AND.  N(34  .GT.  0)  THEN 
IF  (PFIL(NAC)  .EQ.  10)  THEN 

*  A/C  IS  NMC,  FIX  A/G  FAILURES 
.FCRIT(NAC)=2 

CALL  SCHDL(30,0.0,ATRIB) 

RETURN 

ELSE 

PFIL(NAC)=9 

*  A/C  IS  A/'A  PMC,  FILE  INTO  Q  9 
CALL  CHCKE2(NNON,NUMPA,NG+NC3^,2,3) 

IF  (ATRIB(2)  .EQ.  100)  THEN 

RETURN 

ENDIF 

ENDIF 

ENDIF 

■kifk'kir'k 

*  CMSi  TYPE  OF  FAILURE  IS  LEFT 

•k-kirir-klf 

*  A/A  FAILURES  LEFT 

IF  (NA  .GT.  0)  THEN 

IF  (PFIL(NAC)  .EQ.8  .OR.  PFIL(NAC)  .EQ.9 .0R.NI'1Q(  10)  .01.6 )  THEN 

*  A/C  IS  NMC,  FIX  A/A  FAILURES 
FCRIT(NAC)=1 

(AiLL  SCHDL(30,0.0,ATRIB) 

RETURN 

ELSE 

*  A/C  IS  A/G  PMC,  FILE  INTO  Q  10,  FILE  NON  CRIT  FAILS  FIRST 
PFIL{NAC)=10 

CALL  CHCKE2(NNON,NUMPA,NA,l,l) 

IF  (ATRIB(2)  .EQ.  100)  THEN 
RETURN 
ENUiF 
ENDIF 
EMDIF 

****** 

*  A/G  FAIIiURES  ONLY 

*  A-  ★  *  *  ★ 

IF  (NG  .GT.  0)  THEN 

IF  (PFIL(NAC) .EQ.8.0R.PFIL(NAC) .EQ.10.OR.NNQ(9) .GT.6)  THEN 

*  A/C  IS  NMC,  FIX  A/G  FAILURES 
FCRIT(NAC)=2 

CALL.  SCHDL(30,0.0,ATIUB) 

RETURN 

ELSE 

*  A/C  IS  A/A  PIC,  FILE  INTO  Q  9,  FILE  I»1  CRIT  FAILS  FIRST 
PFIL(NAC)-9 
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CALI.  CHCKE2(NNON,NUMPA,NG,2,2) 

IF  (ATRIB(2)  .EQ.  100)  THEN 
RETURN 
ENDIF 
ENDIF 
ENDIF 

"k  ic -k -k  ir  it 

*  A/G  NUCLEAR  FAILURES  ONLY 

■kk-kk-kk 

IF  (NO^  .GT.  0)  THEN 

IF  (PFIL(NAC)  .EQ.  2  .OR.  PFIL{NAC)  .EQ.  11)  THEN 
A/C  ONLY  RAS  A/G  NUC  FAILURES,  FILE  Il'TO  Q  8,  NON  CRIT  FIRST 

*  EVERYTHING  ELSE  GETS  FILED  BACK  IN  PREVIOUS  QUEUE 
PFIL(NAC)=8 

ENDIF 

CALL  CHa<E2(NNON,NUMPA,NC3^,3,3) 

IF  (ATRIB(2)  .EQ.  100)  'FHEN 
RETURI'J 
EI'DIF 
ENDIF 

kkkkkk 

*  ONLY  NON  CRITICAI^  FAILURES  ARE  LEFT 

DO  107  17=1,40 

IF  (PMAINr(NAC,I7,2)  ,EQ.  5)  THEN 
IF  (PFIL(NAC)  .EQ.  2)  THEN 
PFIL(NAC)=11 
ENDIF 

NF=PFIL(NAC) 

X'  111  18=1,40 

IF  (PWUC(N.AC,I8,1)  .EQ.  0)  THEN 
PWUC ( NAC , 18 , 1 ) =PMAIOT ( NAC , 17 , 1 ) 

PWUC ( NAC , I 8 , 2 ) =PMAINr ( NAC , 17 , 2 ) 

PMAINr(NAC,I7,l)=0 

PMAINr(NAC,I7,2)=0 

WRITE(6,*), 'FILE  NONCF,  A/'C,  Q,WUC' ,NAC,NF,PWUC(NAC,I8, 1) 
GO  TO  107 

ELSEIF  (18  .EQ.  40)  THEN 

WRITt:(6,*) , 'A/C  ALREADY  HAS  40  OTHER  FAILURES,  PARALL',NAC. 

ATRIB(2)=100 

CAU,  SCHDL(29,0.0,ATRIB) 

RETURN 

ENDIF 

111  COOTINUE 

ENDIF 

107  COUriNUE 

kkkkk 

*****  IF  NO  I'lAINT  NEEDS  '10  BE  DONE,  COMPLETE  SOME  TYPE  OF  THRUFLIGHT 
CALL  CHECK2 
RETURN 
END 
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*******  v.-*****  *  ********************  ********************  ************^****’** 

*  CHCKE2  * 

*  ORGANIZES  THE  FAILURES  STORED  IN  THE  PWUC  AND  FrdAlNT  ARRAYS.  * 

************************************************************************ 

SUBROUTINE  CHCKE2(NN0N,NUMPA,M1,M2,M3) 

INTEGER  TEMP1{40),TEMP2(40),JPX(5),NPX(5) 

nac=atrib;1) 

IF  (NNON  .CTT.  0)  THEN 
DO  201  11=1,40 

IF  (PMAINT(NAC,I1,2)  .EQ.  5)  THEN 
DO  202  12=1,40 

IF  (Pl-JUC(NAC,I2,1)  .EQ.  0)  THEN 
PWUC ( NAC , 12 , 1 ) =PMAINr{ NAC, I 1 , 1 ) 

PWJC ( NAC , 12 , 2 ) =PMAINr{ NAC, I 1 , 2 ) 

PMAINr(NAC,Il,l)=0 

PMAIMr(NAC,Il,2)=0 

WRITE(6,*) , 'FIT£  NONCF', NAC, PWUC (NAC, 12,1) 

GO  TO  201 

ELSEIF  (12  .EQ.  40)  THEN 

WRITE(6,*) , 'NOT  REAL  ERR,A/C  HAS  40  FAILURES ', NAC 

ATRIB(2)=100 

CALL  SCHDL(29,0.0,ATRIB) 

RETURN 

ENDIF 

202  CONTINUE 
ENDIF 

201  CONTINUE 

ENDIF 

IF  (NUMPA  .Gl’.  Ml)  THEN 
NUMP=0 

DO  203  13=1,40 

IF  (PMAINr(NAC,I3,2)  .EQ.  M2  .OR. 

1  PMAINr(NAC,l3,2)  .EQ.  M3)  THEN 

NUMP=NUMP+1 

TEMPI  ( NUMP )  =PMAINl’ ( NAC ,  1 3 , 1 ) 

TEMP2  ( NUMP )  =PMAINr  ( NAC ,  1 3 , 2 ) 

FMAIinT ( IwC ,  1 3 , 1 )  ■  -0 
PMAINT(NAC,I3,2)=0 

WRITE (6,*-), 'FILE  FAILS ', NAC, TEMP1(  13) 

ENDIF 

203  CONTINUE 

DO  204  14=1,40 

IF  (PWUC (NAC, 14,1)  .GT.  0)  THEN 
NUMP=NUMP+1 

TEMPI  ( NUMP )  =PWUC  ( NAC ,  14 , 1 ) 

TEMl’2  ( NUMP )  =PWUC  ( NAC ,  1 4 , 2 ) 

PWUC(NAC,I4, 1)=0 
PWUC(NAC,I4,2)=0 
ELSE 

R^(NAC,I4,2)=0 

ENDIF 

204  CONTINUE 


IF  (NUMP  .C?r.  0)  THEN 
DO  205  15=1, NUMP 

IF  (TEMP1(I5)  .CT.  0)  THEN 
PWUC ( NAC , I 5 , 1 ) =TEMP 1 ( I 5 ) 

PWUC ( NAC , I 5 , 2 ) =TEMP 2 ( I 5 ) 

TEMPI ( 15 )=0 
TEMP2(I5)=0 
ENUIF 

205  CONTIIvIUE 

ENDIF 
ELSE 

WRITE(6,*) , 'NOT  REAL  ERR, A/C  WILL  HAVE  OVER  40  FAILURES ', NAC 

ATRIB(2)=100 

CALL  SCHDL(29,0.0,ATRIB) 

RETURN 

ENDIF 

RETURN 

END 

iririciriririciricieie'kit'kirir'k’kir-kififir'k’k-k'k'k'k'kiriririric-k'kic-kirir'kfcir-k'kificirit'k-kiriricirir'kir'kirk-ititiirieir’kie'k'kir 

*  CHECK  -  EVENT  3  * 

*  CHECKS  IF  AInI  AIRCRAFT  HAS  JUST  FINISHED  A  SORTIE  OR  MAINTENANCE,  * 

*  CLEANS  UP  STORAGE  ARRAYS,  PLACES  THE  AIRCRAFT  IN  THE  APPROPRIATE  * 

*  rjOCATIC*4.  * 

■ifr***********A*********Vk-Tt'A’*****-*****’*********^***-?V**'Ar*"A‘:fc^*-Tt*-A'itTlt*******'ArV'rit’Ar 

SUBROUTINE  CHECK 

INTEGER  TEMP1(40) ,TEMP2(40),JFX(5),NPX(5) 

***  CHECK  IF  IT  IS  BETWEEN  SHIFTS 

IF  (XX(1)  ,EQ.  1  .AND.  ATRIB(5)  .CT.  3)  THEN 
WRITE(6,*), 'ERR  IN  CHECK,  BEG1NN1NG,XX(1) ,  (5)  '  ,XX(  1)  ,ATRIB(5) 

RETURN 

ENDIF 

***  BEGIN  CHECK  FOR  MAIN! 

NAC=ATR1B(1) 

***  WHEN  ATRIB(16)=1,  'THE  TURI^lAROUND  IS  COMPLETE,  PIT  PLANE  INTO  QUEUE 

*  WHEN  ATRIB(16)=12,  BPO  IS  COMPLETE,  PUT  PIANE  INTO  QUEUE 

*  WHEN  ATRIB(5)=4,5,6,7,8,  THEN  PHASE  IS  COMPLETE,  PUT  PLANE  INTO  QUEUE 
IF  ({.ATRIE{5)  .GE.  4  .AND,  ATRIB(5)  .LE.  8)  .OR. 

1  ATRIB(16)  .EQ.  1  .OR.  ATRIB(16)  .EQ.  12)  THEN 
ADJUST=TNCT^-ATRIB(  3 ) 

NMRT(ATRIB(5) )=NMRT(ATRIB(5) )+l 
WMDT( ATFU;B( 5 ) )  =WMDT( ATRIB(  5 ) )  +ADJUST 
C  WRITE(6,*),TNCW,  'A/C,ADJUST,WUC' , NAC,  ADJUST,  ATRIB{  5) 

ATRIB(3)=TNCW 

ATRIB(2)=0 

NF=PFIL(NAC) 

IF  (ATRIB(16)  .EQ.  1)  THEN 
ATRIB(16)=0 
ATRIB(22)=0 

WRITE (6,*), 'COMPLETED  TURN,  FILE  A/C  IN  Q',NAC,NF 
ELSEIF  (ATR1B(16)  .EQ.  12)  THEN 
ATRIB(16)=13 
ATRIB(21)=TNCW 


199 

198 

*★* 

★  ★★ 

C 

■wr 

* 

* 


ATRIB(5)=Q 

ATRIB(22)=0 

WRITE(6,*) , 'COMPLETED  BPO,  FII^  A/C  IN  Q',NAC,NF 
ELSEIF  (ATRIB(5)  .GE.  4  .AND.  ATRIB(5)  .LE.  8)  THEN 
NF=2 

PFIL{NAC)=2 

WRrrE(6,*} , 'CC»IPLETED  PHASE,  FILE  A/C  IN  Q',NAC,NF 
ELSE 

WRITE(6,*) , 'ERR  IN  CHECK,  ATRIB(5) ' ,ATRIB( 5) 

ENDIF 

CALL  FILEM(NF,ATR1B) 

IF  (ATRIB(5)  .LT.  6)  THEN 
NN16=NNQ(16) 

DO  199  I=1,NN16 

CALL  COPY(I,16,ATRIB) 

N1=ATRIB(1) 

IF  (N1  .EQ.  NAC)  THEN 
CALL  RM0VE(I,16,ATRIB) 

GO  TO  198 
ENDIF 
carriNUE 

WRITE(6,*), 'ERR,  DID  NOT  REMOVE  PLANE  AFTER  SCHD  MAINT  ' ,NAC 
CONTINUE 

CALL  EMrER{5,ATRIB) 

ENDIF 

RETURN 

EINDIF 

CHECK  IF  IT  IS  HQ,  WHICH  Q  TO  REFILE  IT  INTO 
IF  (ATRIB(ll)  .EQ.  2)  THEN 
CALL  SCHDL(21, .05,ATRIB) 

RETURN 

ENDIF 

COMPUTE  SOME  STATISTICS  ON  MDT,  FIX  RATE 
MWUC=ATRIB(5) 

IF  (ATRIB(2)  .GT.  0)  THEN 
ADaUST=TNCW-ATRIB(  3 ) 

WR.ItE(6,-*)  ,-TNCW,- ' PLANE fMwnir.-AIXJl  1ST'  .A'rRTB(1 )  .ATRIB(5)  .ADJUST 
ATRIB(3)=TNaW 
IF  (ATRIB(6)  .GT.  0)  THEN 
IF  (PARA(NAC)  .LE.  1)  THEN 
LRU  SIJBSYSTEM  DCWN  TIME 
WMDT  ( MWUC )  =WMDT  ( IWC ) +ADJUST 
NMDT(MWUC)  =NM[7r(MWUC ) +1 
AIRCRAFT  DCM'I  TIME,  MDT  FROM'NMC  TO  MC 
SMDT=SMDT+ADJUST 
StM/r=SNMDT+l 
IF  (ATRIB(6)  .EQ.  2)  TTEN 

DETERMINE  FIX  RATES  OF  CODE  3  SORTIES  -  INCLUDES  ALL  DELAYS 
IF  (ADJUST  .LE.  2.0)  THEN 
NFIX(1)^NFIX(1)+1 
ENDIF 

IF  (ADJUST  .LE.  4.0)  THEN 
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NFIX(2)=NF1X(2)+1 

ENDIF 

IF  (ADJUST  .LE.  8.0)  THEN 
NFIX(3)=NFIX(3)+1 
ENDIF 

IF  (ADJUST  .GT.  8.0)  THEN 
NFIX(4)=NFIX(4)+1 
ENDIF 
ENDIF' 

ENDIF 

ENDIF 

ENDIF 

***  WHEN  ATRIB(15)=10,  PARAUiEL  MAIFfT  CHECK  FOR  NEW  FB'C  FAILURES 

***  WHEN  ATRIB(15)=21,  PARALLEL  MAINT  CHECK  FOR  40  NON  CF 

***  WHEN  ATRIB(15)=^31,  PARALLEL  MAINT  CHECK  FOR  NEW  NON  CF  DCWE  IN 

*  PARALLEL  WITH  CRIT  FAIL 

IF  (ATRIB(15)  .EQ.  31  .OR.  ATR1B(15)  .EQ.  21  .OR. 

1  ATRIB(15)  .EQ.  10)  THEN 

IF  (ATRIB(15)  .EQ.  10  .AND.  Da'?N(NAC)  .GT.  0)  THEN 
NB=ATRIB(12) 

PMA1NT(NAC,NB,1)=0 

PMAlNr(NAC,NB,2)=0 

ENDIF 

IF  (PARA(NAC)  .GT.  1)  ^THEN 

WRITE(6,*) /PARA  TERM  ENTITY, NAI, WUC, PARA=' ,NAC,PARA(NAC)  ,MWUC 
PAHA (  Mac ) =PAka ( NAC ) - 1 
IF  (ATRIB(15)  .EQ.  31)  THEN 
NB=ATR1B(12) 

PMAINr(NAC,NB, 1)=0 
PMAINr(NAC,NB,2)=0 
ENDIF 

CALJ,  ENrER(5,ATRIB) 

RETUl'^N 

ELSE 

C  WRITE(6,*), 'OLD  ERR,  PARA  =  1 '  ,NAC,PARA(NAC) 

PARA(NAC)=0 

NUMP=0 

IF  (ATRIB(15)  .EQ.  31)  THEN 
NB=ATRIB(12) 

PI^AINT  ( NAC,  NB,  1)^0 
PMAINr(NAC,NB,2)=0 
ELSEIF  (ATRIB(15)  .EQ.  10)  THEN 
DCWN(NAC)=0 
ENDIF 

DO  801  IX=1,40 

IF  (PWUC(NAC,IX,1)  .Gl'.  0)  THEN 
NUMP=NUMP+1 

TEMPI ( NUMP ) -PWUC ( NAC , IX , 1 ) 

TEMP2 ( NUMP ) =PWUC ( NAC , IX , 2 ) 

PWUC(NAC,IX,1)=0 

PWUC(NAC,IX,2)=0 

ELSE 
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TEMP1(IX)=0 

TEMP2(IX)=0 

PWUC(NAC,IX,2)=Q 

ENDIF 

801  COMl’INUE 

IF  (NUMP  .GT.  0)  THEN 
DO  802  IY=l,Nl)MP 

IF  (TEMPi(IY)  .GT.  0)  THEN 
PWUC( NAC, lY, 1 ) =TEMP1 ( lY) 

PWUC ( NAC , I Y , 2 )  =TEMP2 ( lY ) 

TEMPI (IY)=0 
TEMP2(IY)=0 
ENDIF 

802  CONTINUE 
ENDIF 

ENDIF 

ENDIF 

***** 

IF  (TPLANE(l)  .EQ.  1)  THEN 
CALL  aiCKE 

ELSEIF  (TPLANE{1)  .EQ.  2)  THEN 
CALL  CHCKCD 
ELSE 

WRITE(6,*) , 'ERR  IN  CHECK,  TPLANE  WRONG' 

ENDIF 

RETURN 

END 

*  CHECK2 

*  BEGINS  SOME  TYPE  OF  THRUFLiaiT  IF  MAINT  IS  FINISHED  OR  NOT  NEEDED 

SUBROUTINE  CHECK2 
NAC=ATRIB(1) 

***  IF  LAST  FLIGHT  OF  THE  DAY  FOR  THE  AIRCRAFT  -  DO  RASIC  POSTFLIGn’ 
IF  ('TNCW  .GT.  XX(4)  .AND.  (ATRIB(16)  .NE.  13))  THEN 
ATRIB(ie)=ll 
ENDIF 

IF  (ATFl3(16)  .EQ.  11)  THEN 
ATRIB(2)=0 
ATRIB(6)=0 
ATRIB(13)=1 
ATRIB(15)=0 
ATRIB(18)=0 
ATRIB(5)=3 
ATRIB(3)=TNCW 
ATRIB(17)=0 
CALL  ENTER(2,ATRIB) 

CAIL  F1LEM(16,ATRIB) 

FLSE 

***  IF  done  BPO  ALREADY,  FILE  INTO  READY  Q 
IF  (ATRIB(16)  .EQ.  13)  TfEN 
IF  (PWUC(NAC,1,1)  .EQ.  0)  IHEN 
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WRITE(6,*),  'TIME',TNCW,  'Q2  AFTER  MAINTENANCE' ,ATRIB(  1) 
CALL  FILEM(2,ATRTB) 

ELSE 

NF=PFIL(NAC) 

WRITE  ( 6,  *),  'TIME',  TNCW,  'Q  AFTER  MAINTENANCE '  ,A'rRIB{  1 )  ,NF' 
CALL  FILEM(NF,ATRIB) 

ENDIF 

RETURN 

ENDIF 

***  IF  NO  MAINTENANCE  OR  MAIKT  IS  DONE,  PLACE  PLANE  INTO  TURNAROUND 
IF  (ATRIB{2)  .NE.  0)  THEN 

C  WRITE(6,*) , 'TIME' ,'INCW,  "IHRUFLIGHT  AFTER  MAINT' ,ATRIB(  1) 

A'rKIB(6)=0 
ENDIF 

C  WRITE  (6,*), 'BEGIN  THRUFLICM’' ,ATRIB(  1)  ,PWUC(NAC,  I,  I) 

ATRIB(I3)=I 
ATRIB(I5)=0 
ATRIB(16)=I 
ATRIB(I7)=0 
ATRIB(18)=0 
ATRIB(5)=I 
A'rRIB(3)=TNCW 
ATRIB(2)=0 
ATRIB(6)=0 
CALIj  EI'rrER(2,ATRIB) 

CALL  FILEM(16,ATRIB) 

RETURN 

ENDIF 

RETURN 

END 

*  CLEAN  -  EVFOT  3i 

*  INITIA'TES  MAINT  ON  PMC  OR  NON  CRITICAL  PLANES  AFTER  ALL 

*  SORTIES  HAVE  BEEN  FLCWN 

SUBROUTINE  CLEAN 
IF  (TNCW  ,LE.  XX(3)-2.0)  THEN 
CALL  SCHDL(31,1.0,ATRIB) 

ENDIF 

C  WRITE(6,*), 'IN  a£AN,  T,XX(3) ,ENDS0' ,TNCW,XX(3) ,ENDS0 

DO  300  11=8,11 
NQ=NNQ(II) 

IF  (NQ  .GT.  0)  THEN 
rO  200  1=1, NQ 

CALL  RM0VE( I,II,ATRIB) 

NAC=ATOIB{I) 

WRITE(6,*) , 'RMOVE  A/C  FOR  PARA,Q' ,NAC, II,Pt^(NAC,  1, 1 ) 
CALL  SCHDL( 29, .00001, ATRIB) 

200  CONTINUE 
ENDIF 

300  CCaW'INUE 
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n  n  n 


RETURN 

END 

*  DISPLY  -  EVEOT  4  * 

*  DISPLAYS  OUTPUl’  DATA  DAILY 

'k’^-ir'k'kirit-k-kk'kiririric-k'k-k-kir-kiciric'k'kir’k-^iriciricir-kir-k-k'k'k-kit'k'k'k'k'k-^-k-k'k’k-k-kir'k-A-kicir'kic’ft-k'ie-kifiric'k-k'k 

SUBROUTINE  DISPLY 

NM=0 

NN=0 

DO  82  I=1,NPIANE 

IF  (P7\RA(I)  .GT.  0)  THEN 
NM=NM+1 

C  WRITE(8,*) , 'PLANE,  PARA' , r,PARA(I) 

ENDIF 

NN=PARA( I ) +NN 
82  CONTINUE 

WRITE( 6,*) , 'PARALLEL  MAINTENANCE  -  PLANES,  PARA  ' ,NM,NN 

*  CHECK  TO  SEE  IF  CREATED  PLANES  ACCIDENILY 

JTOT^MIACrr  ( 1 ) +NNACT  { 2 ) +NNACT  ( 3 ) +NNACT  ( 5 ) +NNQ  ( 1 ) +NNQ  ( 2 ) +NNQ  ( 3 )  + 

1  NNQ(4)+NNQ(5)+NNQ(6)+NNQ(7)+NNQ(8)+NNQ(9)+NNQ(10)  ^-NNQ(ll) 

2  +NNQ(17)-(NN-NM) 

IF  (JTOl'  .NE.  NPLANE)  THEN 

WRITE(6,*), 'ERR,  WRONG  #  OF  PLANES,  JTOT,NPJANE' ,UlOT, NPLANE 
ENDIF 

*  PRINT  FM’ITIES  IN  QUEUE 

DO  54  1=1,12 

NQ=NNQ(I) 

IF  (NQ  .GT.  0)  THEN 
DO  55  11=1, NQ 

CALL  COPY(Il,I,ATRIB) 

WRITE(6,*),I,ATRIB(1) 

55  CONTINUE 
ENDIF 

54  CONTINUE 

DO  56  1=16,17 
NQ=NNQ(I) 

IF  (NQ  .GT.  C)  THEN 
DO  57  11=1, NQ 

CALL  COPY(ll,I,ATRIB) 

WRITE ( 6 , * ) , 1 , ATRIB( 1 ) 

57  CONTINUE 

ENDIF 

56  CONTINUE 
DO  80  1=1,35 

WRITE(5,*) ,I,JRSC(1) ,I+50,JRSC(l+50) 

80  CONTINUE 
***  CALCULATE  MRT  AFTER  END  OF  EACH  DAY 
RTIME=0 
TMRT=0 

DO  103  I=11,MAXWUC 
X]yiKr=NMRT(  I ) 

Xr4DT=NMDT(  I ) 


no  n  o  o  o  n 


IF  (NKRT(I)  .NE.  0)  THET'I 

WRITE ( 6 , 90 ) I , AWUC ( I ) , NMDT ( I ) , XMDT, NMRT ( I ) , YMRT ( I ) /XMRT 
ELSE 

WRITE ( 6 , 9 0 ) I , AWUC ( I ) , NMDT  ( I ) , XMDT, NMRT ( I ) , XMRT 
ENDIF 

RTIME=RTIME+YMRT( I ) 

TMRT=TOPT+XMRT 
103  CONTINUE 

90  FORI'1AT(1X,I3,2X,A5,2(2X,I4,5X,F10.4)) 

65  FORMAT ( IX, 'ON  LINE  MRT,  QUANITTY  I4RT' ,15, 1X,F10.4/) 

IF  (TMRT  .EQ.  0)  THEN 
XMR1’=0.0 
ELSE 

XMRT=RTIME/TMRT 

MM2=TMRT 

ENDIF 

WRITF ( UNIT=6 , FMr-65 ) MM2 , XMRT 
WRITE ( 6 , * ) , ' 1 , 2 , 4 , 5 ' , FFAVG ( 1 ) , FFAVG { 2 ) , FFAVG ( 4 ) ,  ETAVG ( 5 ) 

CALL  SCHDL(4,24.0,ATRIB) 

^  SGR  RATE 

XFICIWN^NFLCWN 
XPLANE=NPLANE 
SGR=XFLCWN/  ( XPLANE*FDAY ) 

FME  RATE 

Fl= ( FFAVG( 1 ) +FFAVG( 2 ) +FFAVG( 4 ) +FFAVG( 11)) /SCENE ( 1 ) 

if  "nsAn  onrrrc’ 

j.  i'jyw  jiNoxjuj 

F3=  ( F*FAVG(  8 )  +FFA\'G(  9 )  +FFAVG(  10 )  +FFAVG(  16 )  )  /SCENE  ( 1 ) 

*  M:  RATE 
F4=F1+F3 

*  NMCS  RATE 

F2= ( FFAVG{ 7 ) -FFAVG( 22 ) ) /SCENE ( 1 ) 

*  NTCR  HATE 

F5= ( F'FAVG(  3 )  +FFAVG(  12 )  -FFAVG(  21))  /SCENE ( 1 ) 

ND-l+(TNCW/24.0) 

N3=NBRK 

IOJCK3CIABT 

IF  (NDAY  .GT.  0)  THEN 

WRITE ( UNIT=8 , FMT^OOO ) ND, NFLOWN,MSDSOR, FirTOT  '^GR, FI , F3 , F4 , F2 , F5 , 
1N3,NGND 
ELSE 

WRITE { UNIT=8 , FMT-eOO ) ND 
ENDIF 


*•** 

97 

98 

99 


FORMAT( IX, 'QUEUE  #  ;',I3) 

FORMAT( IX, 'PLANE  #  ;',F10.4) 

FORMAT(/,lX, 'TIME  =  ',F10.4,/) 

600  F0RMAT(1X,I3,2(1X,I5),1X,F7.1,1X,F5.2,3(1X,F5.3),2(1X,F6.4), 

11X,I4,1X,I4) 

RETURN 

END 

*  FKPTYQ  -  EVENT  15  * 
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no  n  non 


*  CHECKS  THE  MAINTEMANCE  ViAlT  QUEUES  AND  RESUEMIIS  THE  A/C  INK)  THE  * 

*  MAINTENANCE  NETWRK,  THIS  OCCURS  WHEN  ANY  PERSGMNEL  OR  EQUIPMENT  IS  * 

*  FREED.  AN  AIRCRAFT  WILL  BE  RESUBMITTED  IF  IT  NEEDS  WHAT  WAS  FREED.  * 


SUBROUTINE  EMPTYQ 
INTECER  N(5) 

IF  (O-JOSO-TNO)  .LE.  0.03)  THEN 
CALL  ENIER(5,ATRIB) 

RETURN 

ENDIF 

NAC=A1’RIB(  I ) 

N(1)-WRESC(NAC,1) 

N(2)=WRESC(NAC,2) 

N(3)=WRESC(NAC,3) 

N(4)=WRESC(NAC,4) 

N(5)=WRESC(NAC,5) 

NM=NSFT 

MM=1 

IF  {N(2)  .GT.  0)  THEN 
MM=2 
ENDIF 

IF  (N(3)  .GT.  0)  THEN 
MM=3 
ENDIF 

TF  ^M/4\  (TV  n\  'm™ 

**  \-*\“/  -/  - 

MM=4 

ENDIF 

IF  (N(5)  .GT.  0)  THEN 
MM=5 
ENDIF 

***  CHECK  "LINE  AND  SHOP  -  WAITItvIG  FOR  RESOURCE”  QUEUE 
DO  200  1=1, MM 

DO  300  11=3,13,10 
NN=N{I) 

IF  (NNQ(Il)  .GT.  0)  THEN 
N3=NNQ(I1) 

DO  100  M=1,N3 

CALL  COPY(M,Il,ATRIB) 

NED=ATRIB( 17) 

IF  {^^IED  .EQ.  NN)  THEN 
CALL  RMDVE(M,I1,ATPIB) 

NNODE=ATRIB( 10) 

NDUP=ATRIB(4) 

IF  (MISSN  .EQ.  1  .A'ID.  AT’RIB(5)  .NE.  3)  THEN 
CAIi  F1LEM(I1,ATRXB) 

ELSE 

CALL  ENrER(NNODE,ATRIB) 

WRITE (6,*), 'EMPTYQ, ENTER  NNODE, ( 1) ,NN' ,NNODE,ATRIB{ 1) ,NN 
ENDIF 
GO  TO  50 
ELSE 

WR1TE(6,*),'  EMPTYQ, NO  I4ATCH, FREED, NEED ' ,NN, WED, ATRIB( 1) 
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ENDIF 

100  CCWTINUE 

ENDIF 

300  CONTINUE 

50  CWriNUE 

200  CONl'INUE 
RETURN 
END 

■k-kit'k-kic-k'fticicic-kiciciticititicir'k-kicic'k’kiricieit'te'k'k-^ieiririciiicicic-kic'k-kir’k'k-k'itic-k'k'k-k'kic-k'k'k-kieiric'icit'k-k'k'k 

*  evettt  * 

SUBROUTINE  EVEWT(I) 

GO  TO  (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23 
1,24,25,26,27,28,29,30,31,32,33),! 

1  CALL  ILYING 

RIMURN 

2  CALL  SORTIE 

RETURN 

3  CALL  CHECK 
RETURN 

4  CALL  DISPLY 

RETURN 

5  CALL  REMOVE 

RETURN 

6  CALL  SHIFT 

RETURN 

7  CALL  MAINT 

RETURN 

8  CALL  ALLOK 

RETURN 

9  CALL  WARMUP 

RETURN 

10  CALL  SSHIFT 
RETURN 

11  CALL  PRFLGT 
RETURN 

12  CALL  FREER 

RETURN 

13  iCALL  PHASE 

RETURN 

14  CALL  LAST 

RETURN 

15  CALL  EMPTYQ 
RETURN 

16  CALL  SHOP2 

RETURN 

17  CAIJLi  ALSPAR 
RETURIM 

18  CALL  CANN 
RETURN 

19  CALL  FRSPAR 
RETURN 


20  CALL  NONAV 
•  RETURN 
2.1  CAU.  RELPm 
RETURN 

22  CML  BK) 
m-TTURN 

23  CALL  INSP.ET 
RETU13N 

24  CALL  STUFF 
RETURN 

25  CALL  REAV 
RETURN 

26  CALL  NEED 
RETURt^ 

27  CALL  CHCKE 
RETURN 

28  CALL  aiCKCD 
RETURN 

29  CALL  PARALL 
RETURN 

30  CAJL  PARAP 
RETURN 

31  CALL  CLEAN 
RETURN 

32  CALL  NMAINT 
REIURN 

33  CAIL  GNDABl 
RETURN 

EM) 

■kir'kicie‘1rie-k-k'ir-fe-k^icii'kir'k^'-kk^'kitk'Akiriviei:ie'if'kiic’kie-^ir-kiticic-k’k'k'kic^iririeiririe-k-kir’k-k-kic-k’fr'k’^-k’kiv-k-kic 

*  FLYING  -  EVENT  1  * 

*  DEFINES  THE  FLYING  SCHEDULE,  AND  DI7IEHMINES  NUMBER  OF  AIRCRAFT  PER  * 

*  SORTIE,  WHAT  TYPE  OF  MISSION  WILL  BE  FLCWN 

SUBROIT-'INE  FLYIMI 

*  CHECK  IF  VEEKDAY  OR  WEEKET-lD 

r'n\!=0 

NFL^O 

MSORTY=NSORTY 
IF  (FDA.Y  .GT,  2)  THEN 
XPLANE--NPLANE 

V>?FL£IWN=DSGR*XPLANE*  { FDA.Y-1 ) 

XI’IjOWN=NFLCWi'J 

IF  (WFLCWN-XFIjOWN  .GT.  0.51)  THEN 
NFL-NINT  ( WFIGWN-XFLCWN ) 

MSORTy=KSORTy-iNFI. 

EIjSEIF  (XFLCWN-WFLGVN  .GT,  0.51)  THEN 
NFL,-NINT  ( XF.LOWr'J-lVFLCWN ) 

F]SORrY---MSORTY-NFL 

ENOIF 

ENDIF 

IF  (NDAY  .EQ.  0)  THEI'J 


CALL  SCHDL(l,48.0,A'rRIB) 

ELSE 

CALL  SCHDL(1,24.0,ATRIB) 

TMFLT--=0 . 0 
NN=0 

*  THERE  ARE  MSORTY  SORTIES  PER  DAY 

NFIRST=MSORTY/2+2 

C  WRITE ( 6, *), 'IN  FLYING,  NFIRST---',NFIRST 

DO  20  11-1,2 

DO  iO  I=1,NFIRST 
TMFLT  =  TMFLT+FFREQ 
A'I’RIB(4)=0 

PRDB=UNTRM( 0 . 0 , 1 . 0 , 5 ) 

IF  (PROB  .IjE.  PERCNr{3,l))  THEN 
ATRIB(24)=1 
PROBl=L'NFRM{  0 . 0 , 1 . 0 , 5 ) 

IF  (PROBl  .LE.  PERCMr{2,l))  THEN 
ATRIB(19)=1 
NFORM-1 

ELSEIF  (PROBi  .LE.  PERQn’(2,2))  THEN 
ATRIB(I9)=2 
NPORM-2 

ELSEIF  (PROBl  .LE.  PERCNr(2,3))  THEN 
A'1’RIB{  19 )  =3 
NFORM-3 

ELSEIF  (PROBl  .LE.  rERCWr(2,4))  THEN 
ATRIB(19)=4 
NK3RM-4 
ELSE 

ATRIB(i9)=5 

NFORM-5 

ENDIF 

ELSEIF  (PROB  .LE.  PERCNT(3,2))  THEN 
ATRIB{24)=2 
PROBl=UNFRM( 0 . 0 , 1 . 0 , 5 ) 

IF  (PROBl  .LE.  PERCN1'(2,1) )  THEN 
ATRIB( 1S)-1 
NFORM-1 
ELSE 

ATRIB(19)=2 

NFORM-2 

ENDIF 

ELSEIF  (PROB  .LE.  PERCNr(3,3))  THEN 
AI'RIB(24)=3 
PROBl=lINFRM(  0 . 0 , 1 . 0 , 5 ) 

IF  (PROBl  .1^.  PERCM'(2,1))  THEN 
ATRIB(19)=1 
NFORM-1 
ELSE 

ATRIB(19)-2 

NFORM-2 

ENDIF 
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E3jSEIF  (PROB  .LE.  PERCNr(3,4))  THEN 
AT’RIB(24)=4 
ATRIB(19)=1 
NF0RM=1 
ELSE 

WRITE(6,*) , 'ERR  IN  FLY,PROB,PERCNT{ 3, J) ' ,PROB,PERCNl ( 3, 1) 
ENDIF 

CALL  SCHDL(2,TMFLT,ATRIB) 

NN^NN+NFORM 

IF  (NN  .GE.  NFIRST)  THEN 
GO  TO  15 
•  ENDIF 

10  CONTINUE 

15  CONTINUE 

IF  (II  .EQ.  1)  THEN 
NFIRST=MSORTY-NN 

C  WRITE (6,*), 'IN  FLYING,  NTIRST,MSORl’Y,NN' , NFIRST, MSORTY,NN 

TMFLT=SFT1 
XX(4)=TrFlN 
XX(6)=0 
NN=0 
ELSE 

CAII.  SaroL  (22,  TMFL,T+0 .01,  A'l’^IB ) 

CALL  £CHDL(31,TMFL,T,ATRIB) 

XX(4)=TMFLT+TNOW 

ENDIF 

20  COOTINJE 
ENDIF 
RETURN 
EIND 

******  *****************  ****A-*****lir* +  ***■★***  ****************  ************ 

■*  FREER  -  EVENT  )2  * 

*  FREES  MAINT  RESOURCES  WHEN  TUE  TASK  IS  COMPLETED  OR  ’t'JIIEN  THE  SHIFT  * 

*  IS  ENDED 

it'k-^-k'it’k'k-k'k-k-k'k'k-k'k'k-k'k-k’kit'k-k-k’h-kk'h-k-k'k-^t-k-k-k-kit-k-kit'k-kit'k-kit'kit-k-k-k^'k-k'kif'hirir'k'k'k'k'k'k'k-^’k'k'k'k 

SUBROOTIl^  FREER 

Mr*7ri'*’-!rmTDTD  /  c,  \ 

NAC=ATRIB(1) 

ATRIB(17)=0’ 

JJ=ATR1B( 13 ) 

I=NRESC(NWUC,JJ) 

IF  (1  .EQ.  0)  THEN 

WRITE(6,*)  , 'ERR  IN  FREER,I  EQUAL  TO  0,  ( 1)  ,NWUC' ,A‘rRIB(  1)  ,NWUC 
RETURN 
ENDIF 

IF  (NSIT  .EQ,  0  .OR.  NSFT  .EQ.  1)  THEN 
NADJ-0 

ELSEIF  (NSFT  .EQ.  2)  THEN 
NAa7=50 
ELSE 

WRITE(6,*) , 'ERR  IN  FREER,  NSFT  IS  WRONG' 

OOIF 
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JHELP^O 

KHELP=0 

LHELP=0 

MHELP=0 

NHELP=0 

GO  TO  (1,2, 3, 4, 5), I 

'k  it  "k  ie -k -k -k 

*  FREE  RULE  1  -  THIS  FREES  1  TYPE  OF  RESOURCES 
******* 

1  CONTINUE 

JP1=RESC ( NWUC , JJ, 1 ) +NADJ 
NP1-QUAN(NWLX:,  JJ,  1) 

IF  (TPLANE(l)  .EQ.  1)  THEN 
IF  (ATRIB(25)  .GT.  0)  THEN 
JHELP=ATRIB(25) 

JRSC ( 7 +NADJ ) = JRSC ( 7 +NADJ ) + JHELP 
C  WRITE(6,*),'(7),#',JHELP 

ELSEIF  (ATRIB{2e)  .GT.  0)  THEN 
.JHELP=ATRIB(26) 

JRSC  ( 2  5+NADJ  )  =  JRSC  ( 2  5+NADJ )  +JHEIiP 
C  WRITE(6,*),'(25),#',JHELP 

ENDIF 

IF  ((JPl  .GE.  4  .AND.  JPl  .LE.  6)  .OR.  JPl  .EQ.  23  .OR. 

I  JPl  .EQ.  24)  THEN 

C  WRITE(6,*), 'FREE  JRSC,  #, TOT' ,  JPl, NP1-.THELP,NP1 

ENDIF 
ENDIF 

JRSC ( JPl ) =JRSC ( JPl ) +NP1-JHELF 

WRESC(NAC,1)=JP1 

WRESC(NAC,2)=0 

WRESC(NAC,3)=0 

WRESC(NAC,4)=0 

WRESC(NAC,5)=0 

*  RESET  MMH  COUNTERS 
TMMH(NWUC)=TMMH(NWUC)+( {TNCW-ATRIB(8) )*NP1) 

C  V7RITE(6,*),  'FREER, PLANE, NWUC,  ( 32 )',ATRIB(1),NWUC,TNCXm-ATRIB( 8) 

nrnDTTD  /  o  ^  — n 

CC  WRITE(6,*)  ,  'FREER,A/CP, TYPE, #,#AVAIL',ATRIB(1), JPl, 1]P1,JRSC( JPl) 

C  CALL  EMPTYQ 

CALL  SCHDL(15, .005,ATRIB) 

RETURN 

******* 

*  FREE  RULE  2  -  THIS  FREES  2  TYPES  OF  RESOURCES 
******* 

2  CONTINUE 

JP1=RESC ( NWUC , JJ, 1 ) +NADJ 
JP2=RESC ( NWUC , J J , 2 ) +NADJ 
NP1=QUAN ( NWUC , JJ , 1 ) 

NP2=QUAN ( NWUC , JJ , 2 ) 

IF  (TPIANE(l)  .EQ.  1)  THEN 
**  FIRST  RESOURCE 

IF  (JPi-NADJ  .GE.  4  .AND.  JPl-NADJ  .LE.  6)  THEN 
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c 


c 


c 

** 


c 


c 


c 


c 

cc 

cc 

c 


IF  (ATRIB{25)  .C?r.  0)  THEN 
JHELP=ATRIB(25) 

JI^(  7+NArxr)  =JBSC  ( 7H-NADJ) +JHELP 
WRITE (6,*), 'FREE  JRSC(7+NADJ) ,#' ,JHELP 
ENDIF 

ELSEIF  (JPl-NMXr  .EQ.  23  .OR.  JPl-NADJ  .EQ.  24)  IHEN 
IF  (ATRIB(26)  .GT.  0)  THEN 
JHELP=ATRIB(26) 

JRSC ( 25+NADJ ) =JRSC ( 25+NADJ ) +JHELP 
WRITE (6,*), 'FREE  JRSC (25+NADJ) ,#' ,JHELP 
ENDIF 
ENDIF 

IF  ((JPl-NADJ  .(2:.  4  .AND.  JPl-NADJ  .LE.  6)  .OR. 

1  JPl-NADJ  .EQ.  23  .OR.  JPl-NADJ  .EQ.  24)  IHEN 

WRITE(6,*), 'FREE  JRSC, #, TOP ' ,JP1,NP1-JHELP,NP1 
ENDIF 

SECCM)  RESOURCE 

IF  (JP2-NADJ  .(2.  4  .AND.  JP2-NADJ  .LE.  6)  THEN 
IF  (ATRIB(2.5)  .Gl'.  0)  IHEN 
KHELP=ATRTB(25) 

JRSC  ( 7 +NADJ )  =  JRSC  ( 7 +NADJ ) +KHELP 
WR1TE(6,*), 'FREE  JRSC(7+NADJ) ,#' ,KHELP 
ENDIF 

ELSEIF  (JP2-NADJ  .EQ.  23  .OR.  JP2-NADJ  .EQ.  24)  IHEN 
IF  (ATRIB(26)  .GT.  0)  THEN 

VTJC'T  n— TVafDTn  t  \ 

II  »I|  II  f 

JRSC(  25+NADJ)=JRSC(  25+NADJ) +KHELP 
WRITE (6,*), 'FREE  JRSC(25+NADJ) ,#' ,KHELP 
ENDIF 
ENDIF 

IF  ((JP2-NADJ  .GE.  4  .AND.  .3P2-NADJ  .LE.  6)  .OR. 

1  JP2-NADJ  .EQ.  23  .OR.  JP2-NADJ  .EQ.  24)  IHEN 
WRITE(6,+), 'FREE  JRSC, #, TOT ' ,JP2,NP2-KHELP,NP2 
ENDIF 
ENDIF 

JRSC ( JPl ) =JRSC ( JPl ) +NP1-JHELP 
JRSC ( JP2 ) =JRSC ( JP2 ) +NP2-KHELP 
WRESC(NAC,1)=JP1 
WRESC(NAC,2)=JP2 
WRESC(NAC,3)=-0 
WRESC(NAC,4)  -0 
WRESC(NAC,5)=0 
RESET  MMH  COUNTERS 

'IMe(NWlX:)==IMllH(NWUC)+(  (TNCIW-ATRIB(8)  )*(NP1+NP2) ) 

^"?RITE  ( 6 ,  * ) , '  FREER,  PLANE ,  NWUC ,  ( 32 ) ' , ATRIB  ( 1 ) ,  NWUC ,  INTW-AIRIB  ( 8 ) 
ATRIB(8)=0 

WRITE(6,*) ,  'FREER,A/C,TYPE,#,#AVML'  ,ATRIB(  1) ,  JPl,  NPl,  JRSC  (JPl) 
WRITE(6,  +  ) ,  'FREER, A/C, TYPE,#, #AVAIL' ,ATRIB(  1)  ,JP2,NP2,JRSC(JP2) 
CALL  EMPTYQ 

CALL  SCHDL(15, .005,ATRIB) 

RETURN 

*** 
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*  FREE  RULE  3  -  THIS  FREES  3  TYPES  OF  RESOURCES 
3  CCOTINUE 

JP1=RESC ( NWUC , JJ, 1 ) +NADJ 
JP2=RESC(NWUC, JJ, 2 ) +NADJ 
JP3=RESC ( NWUC , JJ , 3 ) +NADJ 
NP1=QUAN(NWUC, JJ, 1) 

NP2=QUM  ( NWUC ,  JJ ,  2 ) 

NP3=<yjAN  ( NWUC ,  JJ ,  3 ) 

IF  ('IPIANE(l)  .EQ.  1)  IFIEN 
**  FIRST  RESOURCE 

IF  (JPI-NADJ  .GE.  4  .AND.  JPl-NADJ  .LE.  6)  THEN 
IF  (ATRIB(25)  .GT.  0)  THEN 
JHELP=ATRIB(25) 

JRSC(  7+NADJ)  ■•=JRSC(  7+NADJ) +JHELP 
C  WHITE { 6, *), 'FREE  JRSC{ 7+NADJ ),#',JHELP 

ENDIF 

ELSEIF  (JPl-NADJ  .EQ.  23  -OR.  JPl-NADJ  .EQ.  24)  THEN 
IF  (ATRIB(26)  .CT.  0)  THEN 
JHEIJ>=ATRIB{26) 

JRSC  ( 25+N7‘DJ )  =JRSC  ( 25+NADJ)  +JHELP 
C  WRITE (6,*), 'FREE  JRSC (25+NADJ ),#',JKELP 

ENDIF 
ENDIF 

C  WRITE(6,*) , 'FREE  JRSC, #, TOT' ,JP1,NF1-JHEJJ>,NP1 

xo.  or'r'OJkTT-s  rir'OOT  TTV^t? 

IF  (JP2-NADJ  .GE.  4  .AND.  JP2-NADJ  .LE.  6)  THEN 
IF  (ATRIB(25)  .GT.  0)  THEl'J 
KHELP=ATRIB( 25 ) 

JRSC ( 7+NADJ ) ^JRSC ( 7+NADJ ) +KHELP 
C  WRITE ( 6, *), 'FREE  JRSC (7+NADJ ),#',KHELP 

ENDIF 

ELSEIF  (JP2-NADJ  .EQ.  23  .OR.  JP2-NADJ  .EQ.  24)  THEN 
IF  (AT'RIB(26)  .GT.  0)  THEN 
KHELP-ATRIB( 26 ) 

JRSC ( 25+NADJ ) = JRSC ( 25+NADJ ) +KHELP 
C  WRITE ( 6, *), 'FREE  JRSC (25+NADJ ),#',KHELP 

ENDIF 
ENDIF 

C  WRITE(6,*), 'FREE  JRSC,  #,  TOT' ,JP2,NP2-KHELP,NP2 

**  THIRD  I^SOURCE 

IF  (JP3-NADJ  .GE.  4  .AND.  JP3-NADJ  .LE.  6)  THEN 
IF  (ATRIB(25)  .GT.  0)  THEN 
LHELP=ATRIB(25) 

JRSC ( 7+NADJ ) =JRSC ( 7+NADJ ) +LHELP 
C  WRITE( 6,*)^ 'FREE  JRSC( 7+NADJ ),#',LHELP 

ENDIF 

ELSEIF  (JP3-NADJ  .EQ.  23  .OR.  JP3-NADvT  .EQ.  24)  THEN 
IF  (ATRIB(26)  .GF.  0)  THEN 
IHELP=ATRIB(26) 

JRSC  ( 25+NADJ )  -  JRSC  ( 25+NADJ )  ^  lilELP 
C  WRITE ( 6, *), 'FREE  JRSC (25+NADJ),#',LHELP 
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ENDIF 

EMDIF 

C  WRITE (6,* ), 'FREE  JRSC,#, TOT', JP3,NP3-UIEIjP,NP3 

ENDIF 

JRSC ( JPl ) =JRSC ( JP 1 ) +NP1- JHELP 
JRSC ( JP2 ) =JRSC ( JP2 ) +NP2-KHELP 
JRSC ( JP3 ) =JRSC ( JP3 ) +NP3-LHELP 
WRESC(NAC,1)=JP1 
WRESC(NAC,2)=JP2 
WRESC(NAC,3)=JP3 
WRESC(NAC,4)=0 
WRESC(NAC,5)=0 

*  RESET  MMH  COUNTERS 

TMMH(NWUC)=TMMH(NWUC)  +  (  (TISICW-ATRIB(8)  )*(NP1+NP2+NP3)  ) 

C  WRITE(6,*) ,  'FREER, PLANE, NWUC,  (32)  ',ATRIB(1)  ,NWUC,TNCW-ATRIB(8) 

ATRIB{8)=0 

CC  WRITE(6,*),  'FREER,A/C,TVT, QUANT, #AVAIL',ATRIB(1) , JPl, NP1,JRSC.( JPl) 

CC  WRITE(6,*),  'FREER,A/C,'rYP, QUANT, #AVAIL',ATRIB(1) , JP2,NP2, JRSC( JP2) 

CC  WRITE(6,*) ,  'FREER,A/C,TyP, QUANT, #AVAIL',ATR1B(1),JP3,NP3,JRSC(JP3) 

C  CALL.  EMPTYQ 

a\LL  SCHDL(15, .005,ATRIB) 

RETURN 

*  FREE  RULE  4  -  THIS  FREES  4  TYPES  OF  RESOURCES 

A  prATTlT^WTC' 

JP1=RESC ( NWUC , JJ , 1 ) +NADJ 
.TP2=RESC(NWUC,  JJ,2  )+NADJ 
JP3=RESC ( NWUC , JJ, 3 ) +NADJ 
JP4=RESC ( NWUC , JJ , 4 ) +NAaT 
NP1=QUAN  ( NVJUC ,  JJ ,  1 ) 

NP2=QUAN ( NWUC , JJ , 2 ) 

NP3-QUAN ( NWUC , J J , 3 ) 

NP4=QUAN ( NWUC , JJ , 4 ) 

IF  (TPLANE(l)  .EQ.  1)  THEN 
**  FIRST  RESOURCE 

IF  (JPl-NADJ  .GE.  4  .AND.  JPl-NADJ  .LE.  6)  'THEN 
IF  (ATRIB(25)  .CJT.  0)  THEN 
JHELP=ATRIB( 25 ) 

JRSC  ( 7 +NADJ )  =  JRSC  ( 7 +NADJ )  +  JHELP 
C  WRITE(6,*), 'FREE  JRSC (7+NADJ),#',JRELP 

ENDIF 

ELSEIF  (JPl-NADJ  .EQ.  23  .OR.  JPl-NADJ  .EQ.  24)  TlffiN 
IF  (ATRIB(26)  .C7T.  0)  THEN 
JHELP=A'rRIB(  26 ) 

JRSC  ( 2  5+NADJ )  -  JRSC  ( 2  5 +-NADJ )  +  JHELP 
C  WRITE(6,*), 'FREE  JRSC (25+NADJ),#', JHELP 

ENDIF 
ENDIF 

C  WRITE(6,*),'FREE  JRSC, #, TOT' , JPl, NP1-JHELP,NP1 

**  SECOND  RESOURCE 

IF  (JP2-NAEXJ  .GE.  4  .AND.  JP2-NADJ  .LE.  6)  THEN 
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IF  (ATRIB(25)  -GT.  0)  THEN 
KHELP=ATRIB(25) 

JESC  ( 7 +NADa )  =  JE^  ( 7 +NADJ ) +KHELP 
C  WRITE{6,*), 'FREE  JESC(7+NADJ),#',KHELP 

ENDIF 

ELSEIF  (JP2-NADJ  .EQ.  23  .OR.  JP2-NADJ  .EQ.  24)  THEN 
IF  (ATRIB(26)  .GT.  0)  THEN 
KHELP=ATRIB(26) 

JRSC  ( 2  5+NADJ )  =  JRSC  { 25+NADJ )  +KI-1ELP 
C  WRITE (6,*), 'FREE  JRSC (25+NADJ), #',KHELP 

ENDIF 
ENDIF 

C  WRITE ( 6, +), 'FREE  JRSC,#, TOT', JP2,NP2-KHELP,NP2 

**  THIRD  RESOURCE 

IF  (JP3-NADJ  .GE.  4  .AND.  JP3-NhDJ  .LE.  6)  THEN 
IF  (AT’RIB(25)  .GT.  0)  THEN 
LHELP=ATPIB(25) 

JRSC( 7+NADJ ) =JRSC ( 7+NADJ) +LHELP 
C  WRITE(6,*) , 'FREE  JRSC(7+NADJ)  ,#' ,DffiLP 

ENDIF 

ELSEIF  (JP3-NADJ  .EQ.  23  .OR.  JP3-NADJ  .EQ.  24)  THEN 
IF  (ATRIB(26)  -GT.  0)  THEN 
IiiELP=ATRIB(26) 

JRSC ( 25+NADJ ) =JRSC ( 2  5+NADJ ) +IHELP 
C  WRITE(6,*) , 'FREE  JRSC(25+NADJ),#',LHELP 

ENDIF 

C  WRITE(6,*) , 'FREE  JRSC, #, TOT' ,JP3,NP3-LHELP,NP3 

**  FOURTH  RESOURCE 

IF  (JP4-NADJ  .GE.  4  .AND.  JP4-NADJ  .LE.  6)  THEN 
IF  (ATRIB(25)  .GT.  0)  THEN 
MHELP=ATRIB(25) 

JRSC ( 7+NADJ ) =JRSC ( 7+NADJ) +MHELP 
C  WRITE(6,*) , 'FREE  JRSC(7+NADJ),#',MHELP 

ENDIF 

ELSEIF  (JP4-NADJ  .EQ.  23  .OR.  JP4-NADJ  -EQ.  24)  THEN 
IF  (ATRIB(26)  .GT.  0)  THEN 
MHELP=ATRIB(26) 

JRSC  ( 25+NADJ )  =-JPSC  ( 25+NADJ )  HIHELP 
C  WRITE (6,*), 'FREE  JRSC (25+NADJ ),#',MHELP 

ENDIF 
ENDIF 

C  WRITE(6,*) , 'FREE  JRSC, #, TOT ' ,JP4,NP4-MHELP,NP4 

ENDIF 

JRSC ( JPl ) =JRSC ( JPl ) +NP1-JHELP 
JRSC ( JP2 ) =JRSC ( JP2 ) +NP2-KHELP 
JRSC ( JP3 ) = JRSC ( JP3 ) +NP3-LHELP 
.JRSC  ( JP4 )  =JRSC  ( JP4 )  +NP4-MHEI  .1-’ 

WRE3C(NAC,1)=JP1 

WRESC(NAC,2)=JP2 

WRESC(NAC,3)=JP3 

WRESC(NAC,4)-.JP4 
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WRESC(NAC,5)=0 

*  RESET  MMH  COUNTERS 

)  ==TMMH(  NWUC )  +  ( (TNCW-ATRIB(  8 ) )  ■*•  ( NP1+NP2+NP3+NP4 ) ) 

C  T4RITE(6,*),  'EREER,PIANE,NWUC,  (32)  ',ATRIB(l),NWUC,TNOW-ATRIB(8) 

ATRIB(8)=0 

CC  \>KITE  ( 6 ,  * ) , '  FREER,  A/C , TYP ,  QUANT,  #A\'AII. ' ,  ATRIB ( 1 ) ,  JPl ,  NPl , . JRSC  ( JPl ) 

CC  WRITE  ( 6 ,  * ) , '  FREER,  A/C , TYP , QUANT ,  #AVAIL ' ,  ATRIB ( 1 ) ,  .7P2 ,  NP2 ,  JRSC  ( JP2 ) 

CC  WRITE(6,*) ,  'FREER, A/C, TYP, QUANT, #AVML ATRIB(  1)  ,JP3,NP3,JRSC(JP3) 

CC  WRITE(6,*) , ' FREER, A/C,TYP, QUANT, #AYAIL',ATRIB(1) , JP4 , NP4 , JRSC ( JP4 ) 

C  CALL  EI4FTYQ 

CAU,  SCHDL( 15, .005, ATRIB) 

RETURN 

*  FREE  RULE  5  -  THIS  FREES  5  TYPES  OF  RESOURCES 
******* 

5  CONTINUE 

JP1=RESC ( NWUC , JJ, 1 ) +NADJ 
JP2=RESC ( NWUC , JJ, 2 ) +NADJ 
JP3=RESC ( NWUC , J J , 3 ) +NADJ 
JP4=RESC(NWUC, JJ,4 )+NADJ 
JP5=RESC ( NWUC , JJ, 5 ) +NADJ 
NP 1=QUAN ( NWUC , JJ , 1 ) 

NP2--QUAN  ( NWUC ,  JJ,  2 ) 

NP3=QUAN(NWUC,JJ,3) 

NP 4 =QUAN ( NWUC , J J , 4 ) 

NP5=QUAN  ( NWUC JJ 5 ) 

IF  (TPLANE(l)*  .EQ. 'l)  TIIEN 
**  FIRST  RESOURCE 

IF  (JPl-NADJ  .GE.  4  .AND.  JPl-NADJ  .LE.  6)  THEN 
IF  (ATRIB(25)  .GT.  0)  THEN 
JHELP=ATRIB(25) 

JRSC( J+NAa^) =JRSC( 7+NADJ) +JHELP 
C  WRITE ( 6, *j, 'FREE  JRSC (7+NADJ),#',JHELP 

ENDIF 

ELSEIF  (JPl-NADJ  .EQ.  23  .OR.  JPl-NADJ  .EQ.  24)  THEN 
IF  (A'rRIB(26)  .CT.  0)  THEN 
JHELP=ATRIB(26) 

JRSC ( 25+NADJ ) =JRSC ( 25+NADJ ) +JHELP 
C  WRITE (6,*), 'FREE  JRSC (25+NADJ ),#',JHELP 

ENDIF 

ENDIF 

C  WRITE(6,*) , 'FREE  JRSC, #,TOI'' ,  JPl, NPl-JHELP, NPl 

**  SECOND  RESOURCE 

IF  (JP2-NADJ  .GE.  4  .AND.  JP2-NADJ  .LE.  6)  THEN 
IF  (ATRIB(25)  .GT.  0)  THEN 
KHEIjP=ATRIB(  25 ) 

JRSC ( 7+NADJ) =JRSC ( 7+NADJ ) +KHELP 
C  WRITE (6,*), 'FREE  JRSC (7+N.ADJ)  ,#',KHFJJ? 

ENDIF 

ELSEIF  (JP2-NADJ  .EQ.  23  .OR.  JP2-NADJ  .EQ.  24)  THEN 
IF  (ATRIB(26)  .GT.  0)  THEN 
KHELP=ATRIB( 26 ) 
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JESC  ( 2  S+f'IADJ )  =  JRSC  ( 2  5+NADJ )  +KHELP 
C  WKITE(6,*), 'FREE  JFSC( 2 5+NADJ ),#',KHELP 

ENDIF 

ENDIF 

WRITE(6,*) , 'FREE  JRSC ,#, 'TOT ',  JP2 , NP2-KHELP , NP2 
**  THIRD  RESOURCE 

IF  (JP3-NADJ  .GE.  4  .AND.  JP3-NADJ  .LE.  6)  THEN 
IF  (ATRIB(25)  .GT.  0)  HffiN 
IiIELP=ATRIB(25) 

JRSC ( 7 +NADJ ) = JRSC ( 7 +NADJ ) +LHELP 
C  WRITE(6,*), 'FREE  JRSC(7+NADJ),#',LHELP 

Ei-roiF 

ELSEIF  (JF3-NADJ  .EQ.  23  .OR.  JP3-NADJ  .EQ.  24)  THEN 
IF  (ATR1B(26)  .GT.  0)  THEN 
LHELP=ATRIB(26) 

JRSC ( 25+NADJ ) =JRSC ( 25+NADJ ) +IJffiLP 
C  WRITE (6,*), 'FREE  JRSC (2 5+NADJ ),#',LHELP 

ENDIF 

ENDIF 

C  WRITE(6,*), 'FREE  JRSC,#, 'I'0T',JP3,NP3-LHELP,NP3 

**  FOURTH  RESOURCE 

IF  (JP4-NADJ  .GE.  4  -AND.  JP4-NADJ  .LE.  6)  THEN 
IF  (ATRIB(25)  .GT.  0)  THEN 
MHELP=ATRIB( 25 ) 

JRSC ( 7+NADJ ) ^JRSC ( 7+NADJ) +MHELP 
C  write  ( 6  ,  ' FREE  JRSC(7+NAnj)  ,#' ,MHELP 

ENDIF 

ELSEIF  (JP4-NADJ  .EQ.  23  .OR.  JP4-NADJ  .EQ.  24)  THEN 
IF  (ATRIB(26)  .GT.  0)  THEN 
MHELP=ATRIB(26) 

JRSC ( 25+NADJ ) =JRSC ( 2 5+NADJ ) +MHELP 
C  WRITE(6,*), 'FREE  JRSC(25+NADJ),#',MHELP 

ENDIF 

ENDIF 

C  WRITE(6,*) , 'FREE  JRSC,#,T0T',JP4,NP4-MHELP,NP4 

**  FIFTH  RESOURCE 

IF  (JP5-NADJ  .GE.  4  .AND.  JP5-NADJ  .LE.  6)  THEN 
IF  (ATRIB(25)  .GT.  0)  THEN 
NHELP=ATRIB{ 25 ) 

JRSC  ( 7  +NADJ )  =  JRSC  ( 7  +NADJ )  +NHELP 
C  WRITE ( 6, *), 'FREE  JRSC (7+NADJ ),#',NHELP 

ENDIF 

ELSEIF  (JP5-NADJ  .EQ.  23  .OR,  .IP5-NADJ  .EQ.  24)  THEN 
IF  (ATRIB(26)  .GI’.  0)  THEN 
NHELP=ATRIB( 26 ) 

JRSC ( 2  5 +NADJ ) = JRSC ( 2  5  +NADJ ) +NHELP 
C  WRITE (6,*), 'FREE  JRSC (25+NADJ ),#',NHELP 

ENDIF 

ENDIF 

C  WRITE(6,*), 'FREE  JRSC,  #,  TOT '  ,JP5,NP5-NHELP,NP5 

ENDIF 

JRSC ( JP1)= JRSC (JPl )+NPl-JHELP 
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JRSC  ( JP2 )  =JRSC  ( JP2 )  +NP2-KHEI 
JRSC  ( JP3 )  =JRSC  ( JP3 )  +NP3-IiiELP 
JRSC ( JP4 ) =JRSC ( JP4 ) +NP4-MHELP 
JRSC { JP5 ) = JRSC ( JP5 ) +NP5-NHEIJ' 

WRESC(NAC,1)=JP1 

'WRESC(NAC,2)=JP2 

WRESC(NAC,3)=JP3 

WRESC(NAC,4)=JP4 

WRESC(NAC,5)=JP5 

*  RESET  MMH  COUNTERS 

TMMH ( NWUC ) =TMMH( NWUC ) + ( ( TNCW-ATRIB ( 8 ) ) * { NP1+NP2+NP3+NP4+NP5 ) ) 

C  WRITE(6,*),  'FREER,PLANE,NWUC,  (32)  ',ATRIB(1)  ,NWUC,TNCW-ATRIB{8) 

ATRIB(8)=0 

CC  VgRITE  ( 6 ,  * ) , '  FREER ,  A/C ,  TYP ,  QUANT ,  #AVAIL ' ,  ATRIB  ( 1 ) ,  JPl ,  NPl ,  JRSC  ( JP 1 ) 

CC  WRTTE(6,*),  'FREER, A/C, I’YP, QUANT, #AVAIL', ATRIB (1),JP2,NP2, JRSC {JP2) 

CC  WRITE (6,*),  'FREER, A/C, TYP, QUAN1’,#AVAIL ',ATRIB(1)  ,JP3,NP3, JRSC (JP3) 

CC  WRITE(6,*),  'FREER, A/C, TYP, QUANT, #AVAIL',ATRIB{1) , JP4,NP4, JRSC(JP4) 

CC  WRIT'E(6,*),  'FREER, A/C, TYP, QUANT, #AVAIL',ATRIB(1) , JP5,NP5, JRSC( JP5) 

C  CALL  EMPTYQ 

CAIiL  SCHDL(  15,  .005, ATRIB) 

RETURN 

END 

■>**********************•************************************************* 

*  FRSPAR  -  EVENT  19  * 

a.  onTinpr  avv  c-rmnT  V  t.tuitm  TC  pOMDTpTVr!  * 

•'  rVJJOUCU’jJ.  J-O  J-V  iw  waax-.'x.a^W  a 

*  QUEUE  IF  A  PLANE  IS  NEEDING  THE  NCW  AVAILABLE  SPARE  * 

************************************************************************* 

SUBROUTINE  FRSPAR 

IF  (NSFl’  .EQ.  1  .OR.  NSFT  .EQ.  0)  THEN 
NJ=0 

ELSEIF  (NSFT  .EQ.  2)  'THEN 
NJ=35 

ELSEIF  (NSFT  .EQ.  3)  THEN 
REILJRN 
ELSE 

WRITE(6,*) , 'ERR  IN  FRSPAR,  NSFT  IS  WEIRD' 

ENDIF 

***  PUT  SPARE  BACK  INTO  SUPPLY 
NWUC=ATRIB(5) 

NSPR ( NWUC ) =MSPR ( NWUC )- 1 
NSPARE ( NWUC ) =NSPARE ( NWUC ) + 1 
IF  (ATRIB(18) .EQ.88)  THEN 

C  WRITE(6,*) , 'TIME', TNCW, 'FROM  DEPOT  SPARE, PLANE= ' ,ATRIB( 1 ) ,NWUC 

ELSE 

C  WRITE(6,*), 'TIME',TNOW, 'RELEAS  SPARE' ,ATRIB( 1) ,NWUC,NSPARE(NWUC) 

ENDIF 
ATRIB(9)=0 
ATRIB(17)=0 
ATRIB(18)=0 

***  CHECK  IF  ANY  NMCS  AIRPLANES  ARE  MISSING  THIS  SPARE 
NQUE=NI-^(7) 

I-O 
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300 

*★* 

c 


301 

C 


500 

C 

C 


CONTINUE 

CHECK  FDR  PLANES  IN  PARALLEL  I-IAINT  FIRST 
IF  (NNQ(7)  .GE.  1  .AND.  I  .LT.  NQUE)  THEN 
1=1+1 

CALL  CCPY(I,7,ATRIB) 

KKTRB=ATRIB( 5 ) 

KK15=Aa'RIB(  15) 

WRITE(6,*), 'IPART  FREED/NEEDED/PLANE' ,NWUC,KKTRB,ATRIB( 1) ,KK15 
IF  (KKTRB  .EQ.  NWUC  .AND.  KK15  .GE.  21)  THEN 
WR1TE(6,*) ,  '1  A  ]yiATai,lM:SPLANE,NWLC,  15 ',ATICB{1), KKTRB, KK15 
CALL  RMDVE(I,7,ATRIB) 

ATRIB(11)=1 

CAUL  ENrER(8,ATRIB) 

RETURN 

ELSE 

GO  TO  300 
ENDIF 
ENDIF 

NQUE=NNQ(7) 

1=0 

CONTINUE 

IF  (NNQ(7)  .GE.  1  .AND.  I  .LT.  NQUE)  THEN 
1=1+1 

CALL  RMOVE(l,7,ATRIB) 

t/T/nnao— nmoTO  /  c:  \ 

WRnE(6,*) , '2PART  FREED/NEEDED/PLANE' , NWUC, KKTRB, ATR1B( 1) ,KK15 
IF  (KKTRB  .EQ.  NWUC)  THEN 

WRITE(6,*), '2  A  MATCH, NI^SPLANE,NWIX:,  15 ^ATRIB(1), KKTRB, KK15 

ATRIB(11)=1 

CALL  ENTER(8,ATRIB) 

RETURN 

ELSE 

CALL  FILEM(7,ATRIB) 

GO  TO  301 
ENDIF 
ENDIF 

CHECK  IF  ANY  HANGAR  QUEENS  ARE  MISSING  THIS  SPARE 
IF  (NNQ(17)  .GT.  0)  THEN 
NQU1=NNQ(17) 

1=0 

12=0 

13=1 

NQ=1 

CONTINUE 

1=1+13 

IF  (13  .EQ.  1)  THEN 

WRITE (6,*) , 'REMOVING  FROM  Q17,NQ,NQU1, 17' ,NQ,ilQUl,NNQ( 17) 

CALL  RM0\T;(1,17,ATRIB) 

ENDIF 

JJTRB=ATRIB(5) 

WRITE(6,*), 'PART  FREED/PART  NEEDED/PLANE' ,NWUC, JJ’TRB,ATRIB( 1) 

IF  (JJTRE  .EQ.  NWUC)  THEN 
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WRITE  (6,*), 'THERE  IS  A  MATai,KQPLANE,NWUC' ,ATRIB(  1 ) ,  JOT-RB 

ATRIB(  j1)=-2 

CALL  ENrER(8,ATRIB) 

RErLTN 

ELSE 

12=12+1 

NK=I2 

IF  (NK  .EQ.  5)  THEN 
12=0 
13=1 

IF  (NQ  .EQ.  NQUl)  THEN 
CALL  FILEM(17,ATRIB) 

RETURN 

ELSE 

NQ=NQ+1 

CALL  FILEM(17,A'rRIB) 

GO  TO  500 
ENDIF 
ENDIF 

NAC=ATRIB(1) 

IF  (WCANN(NAC,I'IK)  .NE.  0)  THEN 
13=0 

X_A'rP.IB=ATRIB(  5 ) 

ATRIB( 5)=WCANN(NAC,NK) 

\CANN  ( MAC ,  NK )  =XA'rRIB 
ELSE 
12=0 

CAU.  FILEM(17,ATRIB) 

13=1 

IF  (NQ  .EQ.  NQUl)  THEN 
RETURN 
ENDIF 
NQ=NQ+3 
EIOIF 
GO  TO  500 
ENDIF 
EIOIF 
RETURN 
END 

★  k^-ic'kirir-te-k-kirifir'ttie'k'kirit'k'k’k'k'kit'k'A  kkit'kirir'k'k'ir'k-k'kir’k'k'k'k'k  k'k'kit'k'k'k'k'k'k'k 

*  C3CIAB1  -  EVEOT  33 
+  DETERMINES  IF  A  GROUND  ABORT  HAS  CGCURRED 

iritir  Kir  A- it-k-k'kk'k-kir'k'k'k-n'k’kkirif'k-k'iric-kir’kirir’kic'ic-k'kifirif'kiriririfA’k'kii'k’fc'k'k'k'kie'kickic'k'k’k-kir-k’k-k'kir'k'k 

SUBROUTINE  O^ABl 
N1=ATRIB{19) 

DO  100  I=llfMAXWf^ 

IF  (FHTOT+TABOkri  1)  .GE.  TFAlL(l))  THEN 
PR0B1=UNFRM( 0 . 0, 1 . 0, 5 ) 

IF  (TPLANE(l)  .EQ.  2  .AND.  PROBl  .LE.  CRITA(I))  THEN 
MYES=1 
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ELSE 

IF  (PROBl  .LE.  CRITA(I)  .AND.  PFIL(NAC)  .EQ.  9)  THEN 
MYES=1 

ET^EIF  (PROBl  .LE.  CRITG(  I )-h:RITA(  I )  .Ais'D. 

1  PFIL(NAC)  .EQ.  10)  THEN 

MYES=3 

ELSEIF  (PROBl  .LE.  CRITB(I)-K:RITG(I)-K:RITA(I)  )  IHEN 
MYES=5 

ELSEIF  (PROBl  .LE.  CRIT01+CRITB(I)-K:RITG(I)4CRITA(I)  )  llffiN 
MYES=4 
ELSE 
MyES=2 
ENDIF 
ENDIF 

IF  (MYES  .EQ.  1  .OR.  MYES  .EQ.  3  .OR.  MYES  .EQ.  5)  THEl'I 

*  GROUND  ABORT  HAS  OCCURRED 
CALL  RMDVE(I4NQ(4)  ,4,ATRIB) 

GNDABT=GNDAB^r+l 

N1=N1-1 

NAC==ATRIB(1) 

AI’RIB(2)=0 

ATRIB(3)=TNCW 

AT’RIB(5)=0 

ATRIB(6)=0 

ATRIB( 17)=n 

ATRIB(18)=0 

ATRIB(22)=0 

ATRIB(27)=TABORr(l) 

ATRIB(28)=MYES 

XX(5)=0 

DOWN(NAC)=0 

PARA(NAC)=0 

SCOUNI  ( NAC ) =SCOUNT ( NAC ) + 1 
CALL  ENrER(7,ATRIB] 

WRITE(6,*) ,  'GROUND  ABORr,A/C,NWLK:,  (27)  ,N1'  ,NAC,I,TABORT(l)  ,N1 
GO  TO  300 
ENDIF 
ENDIF 

100  CCm’INUE 
300  CCtfflTNUE 

IF  (N1  .GT.  0)  THEN 
DO  200  1=1, N1 

C  WRITE(6,*) , 'SaiED  REMOVE  PIANE  FROM  Q  4 '  ,'rNCW,SORLEN-TABORT(  1 ) 

CALL  SCKDL(5,SORI£N-TABORT( 1) ,ATRIB) 

200  CONTINUE 
ENDIF 
RETURN 
END 

***•*****■*•*****•*•*■***■*■*********+******************■*********************%** 

*  INSPiTl’  -  EVENT  23  * 

*  aiECKS  IF  THERE  IS  A  21  DAY  OLD  CANN  BIRD.  IF  'THERE  IS,  A  DONOR  * 

*  AIRCRAFT  IS  SELECTED  FROM  THE  READY  QUEUE  * 
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*****************  v.-**->v  ********************************************************* 


SUBROUTINE  INSPET 
IF  (NNQ(17)  .GT.  0)  THEN 
NN8=NNQ(17) 

DO  100  1=1, NN8 

CALL  COPY(I,17,ATRIB) 

IF  { (TNOW-ATRIB(23) )  -GE.  456.0)  THEN 
WRITE (6,*), 'INSPET, OLD  HQ,NN8, (17) ' ,TNW,ATRIB(1) ,NN8,NNQ( 17) 
IF  (NNQ(2)  .GT.  0)  THEN 
CALL  RMDVE(1,2,ATRIB) 

NDON(I)=ATRIB(l) 

WRITE(6,*),'  ,  DONOR  FROM  Q2',ATRIB(1) 

CALL  FILEM(6,ATRIB) 

CALL  SaiDL(24,0.01,ATRIB) 

ELSEIF  (NNQ(ll)  .GT.  0)  THEN 
CALI.  RMOVE(l,ll,ATRIB) 

NDON(I)=ATRIB(l) 

WRITE(6,*),'  ,  DONOR  FROM  Qll' ,ATRIB(1) 

CALL  FILEM(6,ATRIB) 

CALL  SCHDL.(24,0.01,ATRIB) 

ELSEIF  (NNQ(iO)  .GT.  0)  THEN 
CALL  RiyDVE(l,10,ATRIB) 

NDON(I)=ATRIB(l) 

WRITE(6,*),'  ,  DONOR  FROM  Q10',ATRI3(1) 

CALL  FILEM(6,ATRIB) 

CALL  SCHDL(24,0.01,ATRIB) 

ELSEIF  (NNQ(9)  .GI.  0)  THEN 
CALL  RICIVE(1,9,ATRIB) 

NDON(I)=^ATRIB(l) 

WR1TE(6,*),'  ,  DONOR  FROM  Q9',ATRIB(1) 

CALL  FILEM{6,ATRIB) 

CALL  SCHDL(24,0.01,ATRIB) 

ELSEIF  (NNQ(8)  .GT.  0)  THEN 
CALL  RMDVE(1,8,ATRIB) 

NUON(I)=ATRIB{l) 

WRITE(6,*),'  .  DONOR  FROM  Q8',ATRIB(1) 

CALL  FILEi''I(6,ATRIB) 

CALL  SC’HDL(24,0.01,ATRIB) 

ELSE 

WRITE(6,*) , 'NO  DONOR', TNOJ 
CALL  SCHDL(23,1.0,ATRIE) 

ENDIF 

RETiJRN 

ENDIF 

IF  (I  .EQ.  NN8)  THEM 
WRITE(6,*), 'END  OF  Q17,I,NN8' ,1,NN8 
GO  TO  200 
ENDIF 

100  CONTINUE 
ENDIF 

200  CONTINUE 
RETURN 
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END 

irirfc'kiriririfirir'^ir'kir'^'k'kicicirifif-kiririfiTiririririritic’k'k'kir'ftic'k'kic’k'iticir'ir'k'kir'irit'k'kicit'kic'kir'kitirir'kir’k-k-k'ftif 

*  IJ^T  -  EVENT  14  * 

*  DISPLAYS  IMPORTANr  OlITPUT  INFORMATION  AT  THE  END  OF  EACH  RUN  * 

SUBROUTINE  CTPUT 
CALL  DISPLY 
CALL  LAST 
RETUF?N 
END 

SUBRDUl  ’-.1  ^ST 

REAL  XFIX^■:),XFIXT,XMAIN,XR£P,XTIME,XNDT,YMAIN 

INTEGER  Rr’SC , QUAN, NRESC ,  SCENE , CODES , WCENE , TPLANE ,  NP ,  PARA, WBRK 

INTEGER  NREP 

*  DETERMINE  BREAK  RATE 
XBRK1=NBRK 
XFLCIWN==NFIjCIWN 
BREAK=XBRK1/XFICWN 
VflUTE  ( UNIT=8 ,  FMr=92 ) 

WRITE  ( UNITES ,  EFTI^Sg )  BREAK ,  NBRK 

*  DETERMINE  MANPOWER  SPACES  PER  AIRCRAFT 

XPLANE=NPLANE 

WRITE  ( UNIT=8 ,  Fi-rr=6  7 ) 

WRITE {UNIT=8,Fl’ir=89)  SPA/24 .0,NPLANE 

*  DETERMINE  FIX  RATES  FROM  CODE  3  AIRCRAFT  -  INCLUDES  DELAYS 

*  COUNTS  NMC/PMC  TO  PMC/FMC  ACTIONS 

WRITE ( UNIT=8 , FMr=88 ) 

XFIX(1)=NFIX(1) 

XFIX(2)==NFIX(2) 

XFT.X(3)=NFIX(3) 

XFIX(4)--NFIX(4) 

XFIXT=XFIX( 3 ) +XFIX( 4 ) 

XFIX { 1 ) =XFIX ( 1 ) /XFIXT 
XFIX ( 2 ) =XFIX ( 2 ) /XFIXT 
XFIX ( 3 ) =XFIX ( 3 ) /XFIXT 
XFIX ( 4 ) =XFIX ( 4 ) /XFIXT 
VIRITE  ( UNIT=8 ,  rT-Tr=87 ) 

WRITE ( UNIT-8 , FMT-89 ) XFIX ( 1 ) , NFIX( 1 ) 

WRITE ( UNTT=8 , FMr=86 ) 

WRITE  ( UIvilT-  3 ,  FMr-89 )  XFIX(  2 ) ,  NFIX(  2 ) 

WRITE  ( UNIT=8 ,  FMr=8  5 ) 

WRITE ( UNIT-8 , FMr=89 ) XFIX ( 3 ) , NFIX( 3 ) 

WRITE  ( UNIT=8 ,  FiyrT=34 ) 

WRITE  ( UNIT-8 ,  Fm’=89 )  XFIX  ( 4 ) ,  NFIX(  4 ) 

*  THIS  WRITES  THE  NUMBER  OF  TIMES  A  RESOURCE  WAS  AVAIL  /  UNAVAIL  /BEGIN 
WRI'TE  (UNIT-8,  FMT-9  9 ) 

DO  100  1=1,35 

I^ITE ( UNIT-8 , FMT-95 ) 1 , XX ( 15+1 ) , JAi 1 ) , JN( I ) , JRSC ( I ) , 1+50 , JA(  50+1 ) 
1,ON(I+50),JRSC(I+50) 

100  CONTINUE 

WRITE ( UNIT-8 ,  FMr=83 ) 

DO  104  1=36,50 
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WRITE ( UNIT=8 , FMr=95 ) I , XX ( 50+1 ) , JA(  I ) , JN ( I ) , JRSC ( I ) , 1+50 , JA(  50+1 ) 
1, JN { 1+50 ),JRSC( 1+50) 

104  CmriNUE 

*  THIS  WRITES  THE  I'lUMBER  OF  TIMES  A  SPARE  WfiS  AVAIL  /  NOT  AVAILABLE 

*  AND  WEN!  TO  DEPOT,  AND  NUMBER  OF  MAX  SPARES,  AND  FINAL  NUMBER 
AWUC{1)-'THRU  ' 

awlk:(2)='prefl' 

AWUC(3)  =  'BPO  ' 

AWUC(4)  =  'HFO  1' 

AWUC(5)='HPO  2' 

AWUC(6)='HPO  3' 

AWUC(7)-'PE  1  ' 

AWUC(8)='PE  2  ' 

AWUC(9)=' 

AWUC(10)  =  ' 

*  ★ 


200 

* 


★ 


199 


WRITE  { UNIT=8 ,  FOT=90 ) 

DO  200  I=11,MAXWUC 

IF  (MISSN  .EQ.  1)  THEN 

NCaD=C(X)ES  ( 1 , 2 ) +Ca)ES  { 1 , 3 ) 

ELSE 

NCOD=CODES  ( 1 , 2 ) +CODES  ( 1 , 3 )  TOODES  { 1 , 4 ) 

ENDIF 

NSPAR-NSPARE ( I ) +NSPR( I ) 

WRITE(UNIT=8,FMr=91)I,AWUC(I)  ,NSPA(I)  ,NSPU(I)  ,NDEP(I)  ,NCaD,NSPAR 
CONTINUE 

THIS  WRITES  Hffi  NUMBER  OF  TLMES  A  SYSTEM  BROKE,  ITS  ICT  AID  MRT 
MDT  COUNTS  DOWN  TIME  FROM  NMC  TO  PMO/FMO,  INCLUDES  DELAYS 
BUT  DOES  INCLUDE  THE  EMPTY  3RD  SHIFT  TIME  WHEN  NO  MAINT  IS  DONE 
MRT  COUNTS  ALL  CORRECTIVE  ACTK^S,  DOES  NOT  INCLUDE  DELAYS 
WRITE (UNIT-8, FMr=9  6 ) 

DO  199  1-1,8 
XMRT=NMRT(I) 

IF  (XMRT  ,EQ.  0)  THEN 

WRITE{UNIT=8,FMT=66)I,AWUC(I)  ,NMRT(I)  ,XMRT 
ELSE 


ITOTfnr/TIMT'TbzR  nWriT/T^  MRTOT/T'\  WMTfTfT^/yMRT’ 


ENDIF 

CawiNUE 

DO  103  I=11,MAXWUC 


XMDT=NMDr(I) 

XMRT=NMRT(I) 

IF  (NMDT(I)  .NE.  0)  THEN 

WRITE(UNIT=8,FMP=98)I,AWUC(I)  ,NMET(I)  ,WMBT(I)/XMCT,NMRT{I) 

1 ,  YMRl' ( I )  /XMRT, V®RK ( I ) ,  CRITB(  I ) 

ELSEIF  (NMRT'(I)  .NE.  0)  THEIs’ 

WRI.TE(UNIT=8,FtOT=98)I,AWUC(I)  ,NMOT(I)  ,XMOT,NMRT(I)  ,YMRT(I)/XMRT 
1,WBRK(I),CRITB(I) 

ELSE 

WRITE(UNIT=8,FMr=98)I,AI^(I)  ,NMOT(I)  ,XMDT,NMR1’(I)  ,XMRr 
1,WBRK(I),CRITB(I) 

ENDIF 
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RTIME=RTIME+YMRT(  I ) 

TMFn><IMRr+XMFT 
103  CCm'INUE 

THIS  OyDOILA'IES  MEAN  DCWN  TIME  (ON  LINE) 

IF  (SNICT  .EQ.  0)  THEN 
XMDT-O . 0 
ELSE 

XMDT=SMDT/SNMDT 

MM1=SNMDT 

ENDIF 

IF  (TMRT  .EQ.  0)  THEN 
XMPT=0.0 
ELSE 

XMRr=RTIME/TMRT 

MM2=Tt'IRT 

ENDIF 

VJRITE  ( UNIT=8 ,  Fr-ir=82  )  MMl ,  XICT 
WRITE  ( UNIT=8 ,  FM1’=65 )  MM2 ,  XMRT 

THIS  CALCULATES  MEAN  MAINTENANCE  HOUR/FLYING  HOUR 
WRITE  ( UNIT=8 ,  FMr=7  8 ) 

WRITE  ( UNITES ,  FMr=7  7 ) 

DO  299  1=1,8 

TMMHS=TMMH( I ) /FHTOT 
WRITE ( UNIT=8 , FMT=7 6 ) I , AWUC ( I ) , TMMHS 
TMMHSS=TMMHSS+'IMMHS 
299  CONTINTJE 

DO  40  I=li,MAXWUC 
TMMHF=TMMH( I ) /FHTOT 

ttmmh=ttmmh+tmmhf 

WRITE ( UNIT=8 , FMr=76 ) I , AWUC ( 1 ) ,TMMHF 
40  CONTINUE 

WRj;i’E(UNIT=8,FMT=79)  TTMMH 
WRITE(UNIT=8,FMr=69)  TMMHSS 

THIS  PRINTS  OUT  NMCS  QUEUE  AND  HANGAR  QUEEN  QUEUE 
IF  (NNQ(7)  .GT.O)  THEN 
WRITE ( UNIT=8 , FMT=7 0 ) 

WRITE  ( IINIT=8 Fr'7r=7 1 ) 

DO  20'l=] ,NNQ(7) 

C-ALL  COPy{I,7,ATRIB) 

NA1=ATRIB(1) 

NA2=ATRIB(5) 

WRITE  ( UNIT=8 ,  FMT=7  2 )  NAl ,  NA2 ,  AWUC  ( NA2 ) 

20  CCWINUE 
EI'IDIF 

IF  {NNQ(17)  .GT.O)  THEN 
WRITE  ( UN  IT=8 ,  FtH^7  3 ) 

WRITE ( UNIT=8 , FMT=74 ) 

DO  30  I=],NNQ(17) 

CALL  COPY (1,17 ,  ATRIB ) 

NA3=ATRIB(1) 

NA4=ATRIB(5) 

NA5=WCANN(NA3,1) 
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NA6=W[:ANN(NA3,2) 

NA7=^WCANN(NA3,3) 

NA8=WCANN(NA3,4) 

M^ITE  ( UNIT=8 ,  FI^-=7  5 )  NA3 ,  NA4 ,  NAS ,  NA6 ,  NA7 ,  NAS 
30  CONTTINUE 
ENDIF 
RETUFiN 

65  F0RMAT(/,  IX, 'ON  LINE  MRT,  QUANTITY  MRT' ,16,  lX,Fi0.4/) 

66  FORMAT(1X,I3,2X,A5,2X,I4,2X,F10.4) 

67  F0RMAT(/,1X, 'MANPOWER  SPACES  PER  AIRCRAFT',/) 

68  FORMAT(2(2X,I4)) 

69  FORMAT(/,5X, 'TOTAL  MMH/FH  (SCHEDULED) ' ,3X,F10. 2,/) 

70  FORMAT( / , IX, 'PLANES  IN  NMCS  QUEUE ' , / ) 

71  FORMAT (5X, 'PLANE  BROKEN  LRU ',/ ) 

72  F0RMAT(7X,I3,12X,I3,2X,A5) 

73  format! /, IX, 'HANOIR  QUEENS  ',/) 

74  FORMAT( 5X, ' PLANE  BROKEN  LRUS ' , / ) 

75  FORMAT(7X,I3,5(8X,I3) ) 

76  F0RMAT(5X,I3,2X,A5,2X,F14.4) 

77  FORMAT ( 8X, 'NWUC' ,8X, 'MMH/FH',/) 

78  F0RMAT(1X, 'MEAN  MAINT  HOURS  PER  FLYING  HOURS',/) 

79  FORMAT (/,5X, 'TOTAL  MMH/FH  (UNSaiEDULED) ' , 1X,F10 . 2 , / ) 

80  F0RMAT(/,1X, '#  OF  REPAIRS,  TIME  OF  REPAIRS  ; ' ,I3,3X,F10.4/) 

81  FORMAT(/,4I5,/) 

82  FORMAT (/, IX, 'ON  LINE  MDT,  QUANTITY  MDT' ,I6,1X,F10.4,/) 

oo  ) 

84  F0RMAT(/,1X, '  MORE  THAN  8  HRS  ' ) 

85  F0RMAT(/,1X, '  3  HRS  OR  LESS  ') 

86  P0RMAT(/,1X, '  4  HRS  OR  LESS  ') 

87  F0RMAT(/,1X, '  2  HRS  OR  LESS  ') 

88  FORMAT (/, IX, 'FIX  RA'TE:  ') 

89  FORMAT(1X,F10.4,5X,I4) 

90  FORMAT(/, 'SPARE  #AVAIL  #UNAVAIL  #DEPOT  QUOTA  #',/) 

91  P0RMAT(1X,I3,2X,A5,5(5X,I4)) 

92  F0RMAT( /, IX, 'BREAK  RATE  : ',/) 

95  FORMAT(3X,I3,3X,F4.2,4X,3(2X,I5),10X,I3,-3(2X,I4)  ) 

96  F0RMAT(/,'  WUC  quant  MDT  QUANI’  MRT  FAIL  CRI'TB',/) 

97  format! /, IX, 'EQUIP  #  #',/) 

98  F0RMAT(1X,I3,2X,A5,2(2X,I4,2X,F8.4),2X,I4,2X,F5.3) 

99  FORMAT (/, IX, 'RESOURCE  AVAIL  %  AVAIL  /  UNAVAIL/ 

lALLOCATION' ,/) 

END 

•k^'k'k'k'k'k’k'k'k-k'itif'k'^’kk'^'k-kk'k'k'k'k-k'k'k-k'k-ki^'k'k-k'kiK'k'k'kit'k-k'kk’k-ki^-k^'k-k'k-k-k'k'k'k'k'k'k'k'k'k'k'k'k’k'k'k'k'k 

*  MAINT  -  EVENT  7  * 

*  CALCULATES  TASK  TIMES  AND  FIX  RATES  FOR  ALL  ON  LINE  MAINT  H7ENTS,  * 

*  SCHEDULED  AND  U  ^SCHEDULED 

SUBROUTINE  MAINT 
NWLC=ATRIB(5) 

NAC=ATRIB(1) 

***  CHECK  FOR  DEAD  TIME 

IF  (XX(1)  .EQ.  1  .AND.  ATRIB(5)  .GT.  3)  THEN 
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WRITE(6,*) , 'ERR  IN  MAIWr,  BEGINNING,XX( 1) , (5) ' ,XX( 1) ,ATRIB(5) 
RETURN 
ENDIF 

ickic 

***  CHECK  IF  HAD  NO  PEOPLE  LAST  TUffi,  TIME  ALREADY  CALCULATED 
IF  (ATRIB(17)  .or.  0)  THEN 

WRITE(6,*) , 'HAD  NO  PEOPLE  LAST  TIME,  DO  NOT  CALCULATE  TIME' 
ATRIB( 7 ) =ATRIB( 7 )  4ATRIB( 9 ) 

ATRIB(9)=0 

IF  (ATRIB(15)  .LE.  10)  THFI^ 

GO  TO  100 

ELSEIF  (ATRIB(15)  .GT.  10)  THEN 
GO  TO  200 
ENDIF 
ENDIF 

★  At* 

***  NO  FAILURE;  DO  TURNAROUND,  BPO  OR  PHASE 

IF  (NWUC  .CT.  0  .AND.  NWUC  .LT.  9)  THEN 
IF  (ATRIB(9) .GT.O)  THEN 
ATRIB(7)-ATRIB{9) 

A'rRIB(9)=0 

IF  {NWUC  .EQ.  1)  THEN 

C  WRITE  (6,*) , 'TURNAROUND  2ND  SHIFT' ,TNa'.', 'PLANE  =',ATRIB(1) 

ELSEIF  (NWUC  .EQ.  2)  THE-N 

C  WRITE(6,*) , 'PREFLIGUT  2ND  SHIFT' ,TNOW, 'PLANE=' ,ATRIB(  1) 

CT  rir'Tr?  /Mr.TttT’  t?r\  0\  rnLn:*K! 

C  WRITE(6,*), 'BPO  2ND  SHIFT' ,TNCW, 'PLANE=' ,ATRIB(  1) 

ELSEIF  (NWUC  .LE.  8)  THEN 

C  WRITE (6,*), 'PHASE  2ND  SHIFT' ,'INCW, 'PLANE=' ,ATRIB( 1)  ,ATRIB(5) 

ELSE 

WRITE(6,*) , 'ERR  IN  MAINE,  NO  FAILURE' , NWUC 

ENDIF 
GO  TO  100 
ELSE 

IF  (ATRIB(5)  .EQ.  4)  THEN 

ATRIB(7)=RLOaSI(TIMES(4,l)  ,STDEV(4,1)  ,5) 

C  WRITE{6,*), 'PHASE,  TIME=' ,TNCW, 'PLANE' ,ATRIB( 1)  ,ATRIB(5) 

GO  TO  100 

ELSEIF  (ATRIB(5)  .EQ.  5)  THEN 

ATRIB { 7 ) =RL0GN ( TIMES ( 5 , 1 ) , STDEV( 5 , 1 ) , 5 ) 

C  WRITE(6,*) , 'PHASE,  TIME=' ,TNOW, 'PLANE' ,ATRIB( 1)  ,ATRIB(5) 

GO  TO  100 

ELSEIF  {ATRIB(5)  .EQ.  6)  THEN 

A'TRIB  ( 7 )  =RLO(3'I  ( TIMES  ( 6 ,  i ) ,  STI W(  6 , 1 ) ,  5 ) 

C  WRITE(6,*), 'PHASE,  TIME=' ,TNW, 'PLANE' ,ATRIB(  1)  ,ATRIB(5) 

GO  TO  100 

ELSEIF  (ATRIB(5)  .EQ.  7)  THEN 

ATRIB ( 7 ) =RLOGN ( TIMES ( 7 , 1 ) , STDEV(  7 , 1 ) , 5 ) 

C  WRITE  (6,*), 'PHASE,  TIME-' ,TNCW, 'PLANE' ,ATRIB(  1)  ,ATRIB(  5) 

GO  'TO  100 

ELSEIF  (A1'RIB(5)  .EQ.  8)  THEN 

ATRIB ( 7 )  -RL0©4  ( TIMES  (8,1),  STDE’V(  8 , 1 ) ,  5 ) 
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WRITE{6,*),  'PHASE,  TIME=','m::W,  'PLANE'  ,ATRIB(  1)  ,ATRIB(5) 

GO  TO  100 
ENDIF 

IF  (ATRIB{16)  .EQ.  11)  THEN 
ATRIB ( 7 ) =RLOGN ( TIMES ( 3 , 1 ) , STOEV(  3 , 1 ) , 5 ) 

WRITE  (6,*), 'BASIC  POST  FLIGHT,T1ME=' ,TNCW, 'PLANE=' ,ATRIB{  1) 
ATRIB(16)=12 
GO  TO  100 
ENDIF 

IF  (MISSN  .EQ.  1)  THEN 

DURING  PFACETIME,  USE  THRUFLIGHT  AND  PRACTICE  TURNAROUNDS 
PROBl=(UNFRM( 0.0, 1.0,5) ) 

IF  (PROBl  .LE.  .04)  THEN 
ATRIB ( 7 ) -RLOGN ( TIMES { 1 , 1 ) , STDBV{ 1 , 1 ) , 5 ) 

ELSE 

ATRIB ( 7 ) -RLOGN ( TIMES { 1 , 3 ) , STDEV( 1 , 3 ) , 5 ) 

ENDIF 

WRITE(6,*) ,  'THRUFLIOfT,  TIME-',TNCW,  'PLANE=' ,ATRIB(1) 
ATRIB{18)=0 
ELSE 

DURING  SURGE  OR  SUSTAINED,  USE  ONLY  ICl’ 

PROB=(UNFRM(0.0, 1.0,5) ) 

IF  (PROB  .L£.  0.50)  THEN 

ATRIB(7)=RIiO®(TIMES{l,l),STDEV(l,l)  ,5) 

ELSE 

ATRIB  ( 7 )  -PlOa;  ( TIMES  (1,2),  STDE'/(  1 , 2 ) ,  5 ) 

ENDIF 

WRIl’E  ( 6,  *), 'COMBAT  TURN,  TIME=' ,TNCW, 'PLANE  =',ATRIB(1) 
ATRIB { 10 )=0 
ENDIF 
GO  TO  100 
ENDIF 
ENDIF 

R&R  WORK 

IF  (ATRIB(13)  .EQ.  2)  THEN 
IF  (ATRIB(9)  .GT.O)  TEIEN 
ATRIB(7)=ATRIB(9) 

ATRIB(9)^0 

ELSE 

ATRIB{ 7 ) =ATRIB{ 14 ) +0 . 25 
ATRIB ( 14 )=0 
ENDIF 
GO  TO  100 
ENDIF 

IN  SHOP  R&R  Viom  FOR  LANTIRN 
IF  (ATRIB(20)  .EQ.  1)  THEN 
IF  (ATRIB(9) .GT.O)  THEN 
ATRIB( 7 ) =ATRI3( 9 ) 

ATRIB(9)=0 

ELSE 

ATRIB( 7 ) =ATRIB( 14 ) *0 . 66 
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ATRIB ( 14 ) =ATRIB ( 14 ) -ATRIB ( 7 ) 

ATRIB(13)^9 

A'rFIB(18)=l 

ATRIB(20)=0 

JJ=9 

WRITE(6,*), 'l^R  IN  SHOP  LANTIRN  POD', MAC 
ENTDIF 
GO  TO  100 
ENDIF 

CONl’INUE 

BEGIN  CALCULATION  OF  FAINT  TIME  FOR  NEW  FAILURES 
IF  (ATRIB(9)  .EQ.  0)  'FriEN 
S1=0.0 

CHECK  IF  MAIMT  TIME  WAS  CALCULATED  PREVIOUSLY 
IF  (ATRIB(7)  .GT.  0)  THEN 

IF  (ATRIB(13)  .EQ.  1  .OR.  A1’RIB(13)  .EQ.  10)  THEN 
IF  (NSPARE(NWUC)-MSP(NWUC)  .LE.  0)  THEN 
IF  (PARA(NAC)  .EQ.  1)  THEN 
PARA(NAC)^0 
ATRIB(]5)=0 
ATRIB ( 17 )=0 
ND=ATRIB(12) 

NF=PFIL(NAC) 

CALL  FILEM(NF, ATRIB) 

WRITE  ( 6 ,  * ) ,  '  LAST  PAPALLEL  EITTITY-NO  SPARE ,  IJO  TERM ' ,  IJAC ,  ATRIB  ( 5 ) 
ELSE 

WRITE(6,*),'NO  SPARE, TERM  ENTITY' ,NAC,PARA(NAC) ,ATRIB( 5) 
PARA(  iW: )  =PARA(  NAC )  -1 
ENDIF 

CALL.  FII^( 20, ATRIB) 

ATRIB(17)=99 

RETURN 

ENDIF 

MSP ( NWUC ) =MSP ( NWUC ) +1 

ENDIF 
GO  TO  900 
ENDIF 

CHECK  IF  FOM  IS  NEEDED 
PROBI=UNFRM( 0 . 0 , 1 . C , 5 ) 

IF  (PROBl  .LE.  PERCNr(NWUC,3))  THEN 

WRITE(6,*) , 'xADDING  FOM  TIME  TO  MAINT' ,ATRIB(  1)  ,M'?UC 
ATRIB(7)=TRIAG(TMIN(NWUC,3),TIMES{Nl-JUC,3)  ,TMAX(NWUC, 3)  ,5) 

ENDIF 

PROB=UNFPJM(  0 . 0, 1 . 0, 5) 

PCTT=PERCNr(  NWTX ,  1 ) 

PCT2=PERCNT(NWUC, 2 ) +PCT1 
PCT4=PERCNT{ NWUC , 4 ) +PCT2 
PCTS=PERCI'JT(  NWUC ,  10 )  +PCT'4 
IF  (Pcrrs  .LT.  0.99)  THEN 

WRITE(6,*), 'ERR  IN  MAINr,%' ,PROB,AWUC(NWUC)  ,PCri,PCT2,PCr4,PCT5 
ENDIF 
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*  REMGME  AND  REPLACE 

IF  (PROS  .LE;.  PCTl)  THEN 
ATRIB(13)=1 
ATRIB(].8)=1 
JJ=1 

*  TERMINATE  ENTITY  IF  PARALLEL  MAIN!  AND  NO  SPARE  AVAIL 
IF  (ATRIB(i5)  .GE.  20)  THEN 

IF  {MSP(NWUC)  .LT.  0)  THEN 

WRITE(6,*),  'IN  MAINT,  ERR  OF  MSP{NWIIC)  '  ,MSP(NWUC)  ,NWUC 
ENDIF 

IF  (NSPARE(NWUC)-MSP(NaAK:)  .LE.  0)  THEN 
IF  (PARA(NAC)  .EQ.  1)  THEN 
PARA(NAC)=0 
ATRIB(15)=0 
ATRIB(17)=0 
NB=ATRIB(12) 

NF=PFIL(NAC) 

CALL  FILEM(NF,ATRIB) 

WRIT£(6,*) , 'LAST  PARALLEL  ENTITY-NO  SPARE, NO  TERM' ,NAC,ATRIB( 5) 
ELSE 

WRITE(6,*) , 'NO  SPARE, lERM  ENTITY' ,NAC,PARA(NAC)  ,ATRIB(5) 
FARA( NAC ) =PARA( NAC ) - 1 
ENDIF 

CALL  FILEM(20,ATRIB) 

ATRIB(17)=99 
PEIIIPN 
ENDIF 
ENDIF 

MSP ( NWUC ) =MSP ( NWUC ) +1 

WRITE(6,*),  'IN  MAINT, MSP, NWUC ',I1SP( NWUC ), NWUC 
CND  ON  LINE 

ELSETF  (PROB  .LE.  PCT2)  THEN 
A'TRIB{13)=2 
ATR1B(18)=0 
JJ-2 

REPAIR  IN  PLACE 
ELSEIF  (PROB  .LE.  PCT4)  THEN 
ATRIB(13)=4 
A'TRIB(18)=0 
JJ=4 

DOWNLOAD  THE  LANTIRN  PODS 
ELSEIF  (PROB  .LE.  PCT5)  THEN 

*  TERMINA'TE  ENTI'TY  IF  PARALLEL  MAINT  AND  NO  SPARE  AVAILABLE 
IF  (ATRIB(15)  .GE.  20)  THEN 

IF  (MSP(NWUC)  .LT.  0)  THEN 

WRITE(6,*) , 'IN  MAINT,  ERR  OF  MSP ( NWUC )  ' ,MSP( NWUC) , NWUC 
ENDIF 

IF  (NSPARE( NWUC) -MSP (NWUC)  .LE.  0)  THEN 
IF  (PARA(NAC)  .EQ.  1)  'THEN 
PARA(NAC)=0 
A'1RIB(15)=0 
ATR1B(17)=0 
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NB=ATRIB(12) 

NF=PFIL(NAC) 

CALL  FILEM(NF,ATRIB) 

WRITE  (6,*), 'LAST  PARALLEIj  EOTITY-NO  SPARE, NO  TERM' ,NAC,ATRIB(5) 
ELSE 

WRITE(6,*) , 'NO  SPARE, TERM  ENTITY' ,NAC,PARA{NAC)  ,ATRIB( 5) 
PARA( NAC ) =PARA{ NAC ) - 1 
ENDIF 

CALL  FILEM(20,ATRIB) 

ATRIB(17)=99 

RETURN 

ENDIF 

ENDIF 

C  WRITE(6,*), 'DOWNLOAD  THE  LAMTIRN  POD', NAC, NWUC 

ATRIB(13)=I0 
ATRIB(18)=0 

ATRIB ( 14 )  =RLOO^  ( TIMES  ( NWUC ,  9 ) , STDEV(  NWUC ,  9 ) ,  5 ) 

ATRIB(20)=1 

JJ=10 

MSP ( NWUC ) =MSP ( NWUC ) + 1 

C  WRITE(6,*) , 'IN  MAINr,LANriRN,  MSP,  NWUC',  MSP  (NWUC),  NWUC 

ELSE 

VJRITE(6,*) , 'ERR  IN  MAINT,  PROB  I4EIRD' ,PROB 
ENDIF 

IF  (DIST(NWUC,JJ)  .EQ.  'L' )  THEN 

A'TR  T  B  ( 7 )  =ATRI  B  ( 7 )  +PIJ0GN  { TIMES  ( NWUC ,  JJ ) ,  STDEV  { NWUC ,  J J ) ,  5 ) 
ELSEIF  (d1sT(NWUC,JJ)  .EQ.  'T')'tHEn' 
ATRIB(7)=TRIAG(m[N(NWUC,JJ)  ,TIMES(NWUC,  JJ)  ,TMAX(NWUC,  JJ) , 5) 

1  +  ATRIB(7) 

ELSEIF  (DIST(NWUC,JJ)  .EQ.  'N')  THEN 

ATRIB  ( 7 )  =ATRIB  ( 7 )  +RNORM  ( TIMES  ( NWUC ,  J  J ) ,  STDEV  ( NWl€ ,  J  J ) ,  5 ) 
ELSEIF  (DIST(NWUC,JJ)  .EQ.  'U' )  THEN 

ATRIB  ( 7 )  =ATRIB  ( 7 )  +UNFRM(  TIMES  ( IvIWUC ,  J  J ) ,  STDEV(  NWUC ,  J  J ) ,  5 ) 

ELSE 

WRITE(6,*)  , 'ERR,  NO  ATRIB(7)  '  ,ATRIB(  1)  ,rMX:,  JJ,DIST(NWUC,  JJ) 
ENDIF 
ATRIB(9)-0 
900  CONTINUE 

*  CHh;CK  REPAIR  TIME  FOR  PARALLEL  NON  CF  MAINT 

IF  (ATRIB(15)  .EQ.  10)  ITlEN 

IF  (ATRIB(7)+AT’RIB(14)  .GT.  DOWN { NAC ) )  THEN 

IF  (ATRIB(13)  .EQ.  1  .OR.  ATRIB(13)  .EQ.  10)  THEN 
TDEI,=  .25 
ELSE 

TDEL=0 . 0 
ENDIF 

DOWN ( NAC ) =ATRIB( 7 ) +TDEL+ATRIB( 14 ) 

C  WRITE(6, *),'(!), DOWN  =', NAC, DOWN(NAC) 

ENDIF 

ENDIF 

IF  ((ATRIB(15)  .EQ.  20  .OR.  ATRIB(15)  .EQ.  30) 

1  .AND.  DCWN{NAC)  .EQ.  0)  THEN 
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IF  (ATRIB(2)  .GT.  100)  THEN 
IF  (MISSN  .EQ.  1)  THEN 

DNr=8 . 0*INT(  (TVEEK-TNCW) /24 . 0 ) 

ELSE 

DNT=0 

ENDIF 

DCWN  ( NAC )  ^^TVv’EEK-TMCW-DNT 
ELSE 

DOWN  ( NAC )  =ENI)S0-TNCW-0 . 05 
ENDIF 

WRITE  (6,*), 'CLEAN  UP,TNCW,  1,DCM1=' ,TNCW,NAC,DOWN(NAC) 
ENDIF 

IF  ((ATRIB(15)  .EQ.  20  .OR.  ATRIB(15)  .EQ.  30) 

1  .AND.  DCWN(NAC)  .GT.  0)  THEN 

IF  (ATRIB(13)  .EQ.  1  .OR.  ATRIB(13)  .EQ.  10)  THEN 
TDEIj=.25 
ELSE 

TDEL-O.O 


ENDIF 

IF  (ATRIB(7)+TDEL+A'rRIB(14)  .GT.  DCWN ( NAC ) )  THEN 
IF  (PARA(NAC)  .GT.  1)  THEN 

WRITE(  6 ,  * ) ,  'TERM  NONCF,Mr' ,  NAC,  PARA  (NAC)  ,ATRIB(  5 )  ,ATRIB(  7  )+TDEL 
PARA ( NAC ) =PARA ( NAC )- 1 
ELSE 

T.Yf->-rrrfi-i  / /“  a.  \  T  -A  rrn  lom  f  TvrpDTD  /  ri  \  TvrppTQ  / ’7  \  a.n’np'f , 

VSnxiij(  u  ^ /  inU  Lit^x/vxx  ^ 

PARA(NAC)=0 

CALL  FILEM(11,ATRIB) 

ENDIF 

IF  (ATRIB(13)  .EQ.  1  .OR.  ATRIB(13)  .EQ.  10)  TH£3'I 
MSP ( NWUC ) =MSP ( NWUC ) - 1 

WRITE(6,*) , 'IN  MAINT,  NOT  ENUF  TIME,MSP' , MSP (NWUC) , NWUC 
ENDIF 

CALL  FIL£M(20,ATRIB) 

A'rRIB(17)=99 

RETURN 

ENDIF 

ENDIF 

DETERMINE  MEAN  REPAIR  TIME  FOR  ALL  COllRECTIVE  ACTIONS 


\MRT  ( NWUC )  =YMRT  ( NWUC )  +-ATRIB  ( 7 )  +ATRIB  ( 14 ) 

NMRT ( NWUC ) =NMRT ( NWUC ) +1 

DIVIDE  TIME  UP  FOR  TROUBLESHOOT  THEN  REPLACE 
IF  (JJ  .EQ.  1  .OR.  JJ  .EQ.  9)  THEN 
XT=ATRIB(7) 

ATRIB(7)=2.0*XT/3.0 
ATRIB( 14 ) =XT-ATRIB( 7 ) 


ENDIF 

ELSE 

ATRIB(7)=ATRIB(9) 

ATRIB(9)=0 

ENDIF 

IF  (ATRIB(18) .EQ.l)  THEN 

WRITE(6,*) , 'MAINT,  TIME= ' ,TNCW, 'SHOP,  PLANE#=' ,ATRIB( 1) ,NWUC, JJ 
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ELSE 

WRITE(6,*) ,  'MAINT,  TIME='  ,TNCW,  'PIJ^#='  ,ATRIB(1)  ,NWUC,JJ 
ENDIF 

***  DIVIDE  UP  MAINT  TIME  TO  SHIFT  TIME  FOR  VJORK 
100  CONTINUE 

CALL  TSHIFT 

IF  (ArRIB(7)  .LE.  0)  THEN 
auX  FILEM{5,ATRIB) 

ENDIF 

WRITE(6,*), '1ST=',ATRIB(7), '2ND  SFT=' ,ATRIB(9 ) ,ATRIB( 1) ,AWUC(NWUC) 
RETURI^ 

EIC) 

iciri^ic'k-kir'k'k'k‘^i(ii:'kie'kicie-k-k'k'kkirir'kiticirir‘kiririe-kicic‘kificic'k'kic-kicic'k-kiri:-k-iciic‘^ir’ir’k-k'k'k-k’k'k-k'icic-k'k-k'k'A 

*  NEED  -  EVENT  26  * 

*  DETERMINES  IF  PREFLIOTT  IS  NEEDED.  IF  A  PLANE  HAS  NOT  HAD  BPO  * 

*  WITHIN  48  HOURS,  PREFLIOfT  IS  NEEDED  BEFORE  THE  PLANE  CAN  FLY.  * 

kkkkfkkkkkkkkkkkkkkkkkkk'k'kir'k'kk-k'kk'k'kick'k'kk'k'k'k'k'k'kk'k'k'kk'k'k'k'kkitiir'k'kir'k'k'k'k’kk'kititiritk 

SUBROUTINE  NEED 

*  LOOK  AT  PMC  OR  NON-CRITICAL  QUEUES 
XJJ=0 

XJ-0 

DO  70  11=8,11 

IF  (NNQ(Il)  .CT.  0)  THEN 
XJJ=XJJ+NNQ(I1) 

KVM  T  1  \ 

DC'  60  1=1,1*31 
CAN,  RM0VE(1,I1,ATRIB) 

ATRIB(16)=0 
TDELTA=TNCW-ATRIB  (21) 

IF  (TDELTA  .GT.  48.0)  THEN 
XJ=XJ+1 
TPRE=.25*XJ 

CALL  SCHDL{11,TPRE,AT’RIB) 

ELSE 

CALL  FILEM{I1,ATRIB) 

ENDIF 

60  CONTINUE 

C  WRITE (6,*) , 'PUTTING  PLANES  IN  FILE,  #',I1,XJ 

ENDIF 

70  CONTINUE 

*  LOOK  AT  FMC  QUEUE 

IF  (NNQ(l)  .GT.  0)  THEN 
NQ1=NNQ(1) 

IF  (MISSN  .EQ.  1)  THEN 

IF  (NQl  .GE.  14-XJJ  .AND.  14-XJJ  .GT.  0)  THEN 
NQ1=14~XJJ 

ELSEIF  (NQl  .GE.  14-XJJ)  THEN 
RETURN 
ENDIF 
ENDIF 

DO  61  1=1, NQl 

CALL  RMDVE:(1,1,A'TRIB) 
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ATRIB(16)=0 
■IDELTA='IW>/-ArRIB  ( 2 1 ) 

IF  (TDELTA  .GT.  48.0)  THEN 
XJ=XJ+1 
TFRE=.25*XJ 

CALL  3CHDL(11,TPRE,ATRIB) 

ELSE 

CALL  FILEM(2,ATRIB) 

FJ'JDIF 

61  CCWTINLIE 

C  WRITE( 6,*) , 'POTTING  PLANES  IN  FILE  2,  #' ,XJ 

ENOIF 
RETURN 
E3TO 

ir‘ici(icici(i<i<iiirir-^-Aic-k-^if-ki('kifi(icit-k'k-k-k-kir-k-k-k-k-k-kic-kicir-k-t^'-ic'k-k-A-k'k'^-k-k-k'k-k-k-kie‘k-k‘k‘^‘kif'k‘kie'k'k‘k‘kit 

*  NMATNT  -  ETTENT  32  * 

*  RESUBMITS  PLANES  TO  MAINT  NETWORK  AT  THE  BEGINNING  OF  A  SHIFT  * 

iiir-kicicitiririciriric'kic^irii:iririticic'k-kicir'kiri(iticici:iric-frieic‘k-k‘k'k-k-kie-kit‘k'k‘kiricic-k‘k-kicic‘k'k‘k-k'k'fr'^'k'k'k'kic'k'k 

SUBROOriNE  I'lMAIOT 

IF  (XX(1)  .EQ.  2  .OR.  NDAY  .EQ.  0)  THEN 
WRITE(6,*) , 'ERR  IN  NMAIOT,BEGINNING,XX(1) ,NDAY' ,XX( 1) ,NDAY 
RETURN 
ENDIF 

*  PRINT  ENTITIES  IN  QUEUE 

C  IF  {NSFT  .EQ.  0)  THEN 

C  DO  54  1=1,12 

C  NQ=NNQ( I ) 

C  IF  (NQ  .GT.  0)  THEN 

C  DO  55  IJ.--1  NQ 

C  CAU.  C:)P/(I1,1,ATRIB) 

C  WRITE."-  .‘';,TNaW,I,ATRIB(l) 

C  55  CONTINUE 

C  ENDIF 

C  54  CONTINUE 
C  ENDIF 

*  LOOK  AT  PLANES  WA1TII4G  FOR  RESOURCES 
IF  (NNQ(3)  .GT.  0)  THEN 

WRITE(6,*) , 'EMPTY  Q3,NNQ' ,NNQ( 3) 

N5=NNQ(3) 

DO  501  1=1, N5 
CAIL  PMQVE(1,3,ATRIB) 

NIO)E=ATRIB(10) 

IF  (MSFT  .EQ.  2)  THEN 

IF  (ATmB(I7)  .LT.  50)  TWCN 
ATRIB( 17 ) =ATRIB( 17 ) +50 
ENDIF 

EIi3EIF  (NSFT  .LT.  2)  THEN 
IF  (ATRIB(17)  .GT.  50)  THEN 
ATRIB( 17 ) =ATR1B( 17 ) -50 
ENDIF 
ENDIF 

IF  (MISSN  .EQ.  1  .AND.  ATRIB{5KG1'. 3  .AND.  NSFT.EQ.O)  Tl-EN 
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CALL  FILf>I(5,ATRIB) 

ELSE 

CALL  ENrER(NNODE,ATRIB) 

ENDIF 

501  CONTINUE 

ENDIF 

*  ijook  at  planes  waiting  for  next  day  MAINT 

IF  (NNQ(5)  .GT.  0)  'I'HEN 

C  WRITE(6,*), 'NNQ(5)  IS  GREATER  THAN  ZERO' ,NNQ( 5) 

WRITE(6,*), 'EMry  Q5,NNQ' ,NNQ(5) 

N5=NNQ(5) 

DO  500  1=1, N5 

CALL  RMCIVE(1,5,ATRIB) 

ITODE=ATRIB(10) 

NWUC-ATRIB{5) 

NAC=ATRIB{ 1 ) 

C  WRITE  ( 6 ,  *  ) ,  '  FILE  5-NAC ,  NODE ,  KW: ,  IIISSN ' ,  NAC ,  NNODE ,  M’rtX: ,  MISSN 

IF  (MISSN  .EQ.  1  .AND.  W^UC.GI'.I  .AND.  NSFT.EQ.O)  THEN 
CALL  F1LEM(5,ATRIB) 

ELSE 

CALIj  ENTER(NN0DE,ATRIB) 

ENDIF 

500  CONTINUE 
ENDIF 

IF  (NNQ(14)  .CT.  0  .AND.  NSFT  .GT.  0)  THEN 
C  >^111112(6,*) , 'NNQ(  14)  IS  GREATER  THAN  ZERO' ,N]'JQ(  14 ) 

V^RITE(6,*),'EMPTY  Q14  ,NNQ' ,NNQ(  14) 

N5=NNQ(14) 

DO  600  1=1, N5 

CALL  RMOVE(l,14,ATRIB) 

NNODE=ATRIB(10) 

CALL  ENTER(NN0DE,ATRIB) 

600  CONTINUE 
ENDIF 

IF  (NNQ{13)  .or.  0  .AND.  NSFT  .CT.  0)  THEN 
WRriE{6,*) ,  'EMPTY  Q13,ra')Q'  ,NNQ(13) 

N5=MNg' 13] 

DO  601  1=1, N5 

CAUL  RMOVE(l,13,ATRIB) 

NNODE=ATR1B(10) 

IF  (NSFT  .EQ.  2)  THEN 

IF  (A'TRIB(17)  .LT.  50)  THEN 
ATRIB( 17 )=ATRIB( 17 )+50 
ETCUF 

ELSEIF  (NSFT  .LT.  2)  THEN 
IF  (ATRIB(17)  .CT.  50)  THEN 
ATRIB(17)=ATR1B( 17)-50 
ENDIF 
ENDIF 

CALL.  Er7TER( NNODE, ATRIB) 

601  CO’/TINUE 
ENDIF 
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RETURN 

END 

*  NONAV  -  EVENT  20  * 

*  DETERMINES  WHICH  RESOURCES  ARE  AVAILABLE  TO  WORK  EACH  SHIFT.  * 

*  NCmVAILABILITY  IS  DETERMINED  BY  THE  AVAILABILITY  PROa^BILITY  * 

iricicicifiKifiTififitirieitie-kieiKiciciK^ie'kic-k-k-k'k-k’k'kir-kiekir'k-kif'k’k'kie'k’k'k-k-k-k-k-k'k-k-kir'k-k'kii-k'k-k'k-k-k'kicic-kk 

SUBROUTINE  NONAV 
IF  (NSFT  .EQ.  1)  THEN 
NAEXJ=0 
JADJ=0 

ELSEIF  (NSFT  .EQ.  2)  THEN 
NADJ=50 
JADJ=15 
ELSE 

WRITE(6,*) , 'ERR  IN  NONAV,  NSFT  WRCMS' ,NSFT 
EroiF 

***  BEGIN  LOOP  TO  QIECK  EACH  TYPE  OF  RESOURCE 
DO  10  I5=1+NADJ,35+NADJ 
JRSC(I5)=0 

***  BEGIN  LOOP  TO  CHECK  EACH  RESOURCE 
IF  {KRSC(I5-JADJ)  .GT.  2)  THEN 
DO  20  K5=1,KRSC(I5-JADJ) 

PROB^UNTRPiC  0 . 0 , 1 . 0 , 5 ) 

IF  (PROB  .LE.  XX(I5-NADJ+15) )  THEN 
JRSC(I5)-JRSC(I5)+1 
ENDIF 

20  coirriNUE 

C  WRITE(6,*),  'I,KS,v7RSC,%',I5,KRSC(I5-JADJ),JRSC(I5),XX(I5-IW)J+15) 
ELSE 

JRSC ( I 5 ) =KRSC ( I 5- JADJ ) 

ENDIF 

10  CONTINUE 
RETURN 
END 

********•***•*******•**•***********■**************+*•*■■*■*********************** 

*  PARALL  -  ETvENr  29  * 

*  BEGINS  PARALLEL  MAINT  WHEN  THERE  ARE  40  FAILURES,  OR  AFTER  ALL  * 

*  SORTIES  HAVE  FLCVJN  FOR  THE  DAY  * 

iririr'kic'ki^'Aieirir'kici^'k'k'k'k'k'k'k'k'kitkiricic'k-k-kiiif-k-kAi^'kirit-k-fi-k-kif-k-k-k'k-k'ff-k'k'k'k-k'A-k-k'A-'fc-k-k-ff-k'k-k'k-k'k'k'k 

SUBROUTINE  PARALJu 
REAL  'IWORK(30) 

NAC=ATRTB(1) 

DCMJ(NAC)=0 
P/\RA{I'1AC)=0 
DO  100  1=1,40 

IF  (PWUC(NAC,1,1)  .NE.  0)  THEN 
ATRIB(2)=A'1’RIB(2)+I 
ATRIB(3)=TNCW 
ATRIB ( 5 ) =PWUC { NAC , I , 1 ) 

NWUC=ATRIB(5) 

ATR1B(7)=0 
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ATRIB(9)=0 

ATRIB(11)=0 

ATRIB(12)=I 

ATRIB(14)=0 

ATRIB(15)==20 

ATRIB(18)=0 

A'1'RIB(20)=0 

PARA(  MAC )  =PARA{  MAC ) -f  1 

C  WRITE(6,*), 'IN  PARALL,NAC,(5),PARA',NAC,ATRIB(5),PARA(NAC),I 

DO  199  12=1,26 

'IW0RK(I2)=A'rRIB(I2) 

199  COOTINUE 

•ffk-k 

NN20=NNQ(20) 

IF  (NN20  .CT.  0)  THEN 
DO  200  12=1, NN20 

CALL  COPY(12,20,ATRIB) 

N1=ATRIB{1) 

N2=ATRIB(5) 

A1=ATIUB(7) 

A2=ATRIB( 14 ) 

A3=ATRIB( 13 ) 

A4=ATRIB( 18 ) 

IF  (NAC  .EQ.  N1  .AND.  NWJC  .EQ.  N2)  THEN 
CALL  Rr40VE(l2,2D,ATRIB) 

CALL  ENTER(5,ATRIB) 

'IVORK(7)=Al 

TWORK(14)=A2 

TVJORK(13)=A3 

TWRK(18)=A4 

JJ=A3 

C  WRn’E(6,*), 'PRIOR  MAINT  TIME  USED' ,NAC,NWUC,TWORI^{  7 ) 

GO  TO  245 
ENDIF 

200  COITTINUE 
ENDIF 

245  CONPINUE 

•kir-k 

DO  299  13=1,26 
ATRIB(  13)  =1^1^1(13) 

299  CONTINUE 

CALL  FILEM(18,ATRIB) 

ENDIF 

100  CONTINUE 
NQ=NNQ(18) 

IF  (NQ  .G1\  0)  THEN 
DO  300  1=1, NQ 

CALL  RM0VE(1,18,ATRIB) 

CALL  ENTER(2,ATRIB) 

300  CONTINUE 
ENDIF 
RE'TURN 
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END 

*****«*>;*■*******************«  **************  *****-**1^^***  *******  *******  *A* 

*  PARAP  -  EVENT  30  * 

*  BEGINS  PARAUjEL  MAINT  WHEN  THERE  ARE  NMC  FAILURES  * 

ir "fr "k ir  ^kkkkkkkkkkkkkk'kk'kic'krrk'kk'k'kk’k'k'kie'tek'k'k'k’kkkk'k’k'ttkk'kie'fr'k’kk’k'k-kk'kif'i'fk'kk'k'k'fr'k 

SUBROUTINE  PARAP 
REAL  TO:jRK(30) 

NAC=ATRTB(1) 

DCWN(NAC)=0 

PARA(NACj=0 

*  BEGIN  MAINT  ON  OLD  NON  CRITICAL  FAILURES 
C;VLL  PARf\LL 

*  BEGIN  MAINT  ON  CRITICAL  FAILURES 
DO  100  1=1,40 

IF  (PMAIWT(NAC,I,2)  .EQ.  FCRIT(NAC) )  THEN 
ATRIB(2)-ATRIB(2)  +-I 
ATRI^''(3)=TN(3^ 

ATRIL  ( 5 )  =FKAINT  ( NAC  ,1,1) 

ATRIB(7)=0 

ATRIB(9)=0 

A'1'RIB(11)=0 

ATRIB(12)=I 

ATRIB(14)=0 

ATP IB (15) =10 

ATRIB(20)=0 

PARA{  NAC )  =PARA(  NAC )  -i-l 

C  WRn'E(6,*), 'IN  PARAP, NAC,  (5), PARA', NAC, ATRIB(5),PARA(NAC) 

CALL  FILEM(18,ATRIB) 

ENDir 

100  CONTINUE 

*  BEGIN  MAINl’  ON  IWH  CRITICAL  FAILURES 
DO  200  1=1,40 

IF  (P.MAIOT’(NAC,I,2)  .NE.  FCRIT(NAC)  .AND. 

1  PI'lArNT(NAC,l,2)  .GT.  0)  IHEN 

ATRIB( 2 ) =ATRIB( 2 ) +1 

TVfmTU  I  ■J  1  — rPMTW.T 
)  “J.i’fvyTt 

ATRIB(  5 )  =PI'1AINT(NAC,  1,1) 

ATRIB(7)=0 

ATRIB(9)=0 

ATRIB(11)=0 

ATRIB(12)=I 

A'L’H1B{  14 )  =0 

ATOIBtl5)=30 

ATRIB(18)=0 

ATR1B(20)=0 

PAFA( NAC ) =PARA( NAC ) + 1 

C  WPJTE(b,*) ,  'IN  PARAP-NON,I'lAC,  (5) ,  (15)  '  ,Mt^,A'rRIB(5)  ,ATRIB(  35) 

CALL  FILt’M(i8,ATRIB) 

ENDIF 

200  CONITNUE 
NQ=NNQ(10) 


IF  (NQ  .G?l\  0)  THED^J 
DO  300  1=1, NQ 

CMi  RrClVE(l,18,ATRIB) 

CALL  ENTER(2,ATRIB) 

300  CONTINUE 
ENDIF 
RETURN 
END 

'kirit'kiricicfe'^irieiririciritirieicifirieiriiir'kicie’tr'k'ifr'kir-k^it'k'k’fe-kiririr'k'kie'kirie'k-k'^irfrie'ieic-k'k'^'k'h'kicii'k'k'k'kif'k 

*  PHASE  -  EVENT  13  * 

*  DEFINES  THE  PHASE  INSPECTION  MAINTENANCE  * 

it'kkkkkkkkkkkkrkkkkkkkkkkkkieicickkitie-kir-k-kic-k-kic’k-kic'k'k-kic'k’k'k'k'k'kic’k'k'k-k’kic’k'k'krfcifirie’kicitii 

SUBRONTINE  PHASE 

*****  SELECT  AIRCRAFT  FOR  PHASE  WORK 
IF  (NNQ(2)  .tJT.  0)  THEN 
CALL  RM0VE(1,2,ATRIB) 

WRITE (6,*), 'REMOVE  PLANE  FOR  PHASE  FROM  Q2',ATRIB(1) 

ELSEIF  (NNQ(ll)  .GT.  0)  THEN 
CALL  RM0VF(1,11,ATRIB) 

WRITE(6,*) , 'REMOVE  PLANE  FOR  PHASE  FROM  Qll' ,ATRIB( 1) 

ELSEIF  (NNQ(IO)  .GT.  0)  THEN 
CALL  RMOVE(1,10,ATRIB) 

WRITE(6,*) , 'REMOVE  PLANE  FOR  PHASE  FROM  QIO ' ,ATRIB{ 1) 

ELSEIF  (NNQ(9)  .GT.  0)  THEN 
CALL  RM0VE(1,9,ATRIB) 

write (6,*), 'REMOVE  PLANE  FOR  PHASE  FROM  Q9',ATRIB(l) 

ELSE 

WRITE (6,*), 'PHASE,  ERR,  NO  PLANES  IN  QUEUE  2,11,10  OR  9' 

NP=NP-1 

RETURN 

ENDIF 

***  DETERMINE  WHICH  PHASE  WORK  NEEDS  TO  BE  DONE 
IF  (NP  .EQ.  1)  THEN 
ATRIB(5)=4 

ELSEIF  (NP  .EQ.  2)  THEN 
ATRIB(5)=5 

EISEIF  (NP  .EQ.  3)  THEN 
ATRIB(5)=4 

ELSEIF  (NP  .EQ.  4)  THEN 
ATRIB(5)=6 

ELSEIF  (I'lP  .EQ.  5)  THEN 
ArRIB(5)=4 

ELSEIF  (NP  .EQ.  6)  THEN 
ATRIB(5)==7 

ELSEIF  (NP  ,EQ.  7)  THEN 
ATRIB(5)=4 
NP=0 
ELSE 

WRITE(6,*), 'ERR  IN  PHASE,  NO  NP' 

ENDIF 

NAC=ATRIB(1) 

ATRIB(15)=0 
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NWUC=ATRIB(5) 

*  DEFINE  THE  PHASE  INSPECTION  MAINT  PARAMETERS 
IF  (NWUC  .EQ.  4)  THEN 

WRITE (6,*), 'PHASE  -  HPO  1 ' ,ATRIB( 1) ,NP 
CALL  FILEM(16,ATRIB) 

ELSEIF  (NWUC  .EQ.  5)  THEN 

WRITE{6,*) , 'PHASE  -  HPO  2' ,ATRIP{1) ,NP 
CALL  FILEM(16,ATR1B) 

ELSEIF  (NWUC  .EQ.  6)  THEN 

WRn’E(6f*), 'PHASE  -  HPO  3' ,ATRIB(1)  ,NP 
ELSEIF  (NWUC  .EQ.  7)  THEN 
WRITE (6,*), 'PHASE  -  PE  1 ' ,ATRIB( 1) ,NP 
ELSEIF  (NSVUC  .EQ.  8)  THEN 

WRITE (6,*), 'PHASE  -  PE  2 ' ,ATRIB( 1 ) ,NP 
ELSE 

WRITE (6,*), 'ERR  IN  PHASE,  DOES  NOT  RECOGNIZE  NWUC' 

ENDIF 

DO  150  1=1,40 

PMAIITr(NAC,I,l)=0 
PMAINI'(NAC,I,2)=0 
PWUC(NAC,I,i)=0 
PVCX:(NAC,I,2)=0 
150  CONTINUE 

PFIL(NAC)=2 

ATRIB(2)=0 

ATRIB(13)=i 

ATRIB(18)=0 

ATRIB(3)=-TNCW 

CALL  ENrER(2,ATRIB) 

RETURN 

END 

*************************************************************************** 

*  PRFLCTT  -  EVENT  11  * 

*  BEGINS  PREFLIOfT  TASK  EARLY  IN  FIRST  SHIFT  IF  THE  AIRCRAPT  >JAS  NOT  * 

*  HAD  A  BPO  IN  48  HOURS 

•k'k-Aii'kicic-k'k^ir'kif'k'k'k-kie'kir'kiyic-kie'k'k'k'k'k'k'k-k-kitic'k'k’k-teir'k'k'k'k'k'k-k-k-k-k-^’k-k-kic'k-k'k'k'k'kir'kie'k-k'k-k'k'k-k 

SlBROUriNE  PRFI/GT 
IF  (ATRIB(5)  .EQ.  2)  THEN 
GO  TO  100 
ENDIF 

***  BEGIN  PREFLIGHT,  ASSI<3I  PARAMETER  VALUES 

WRI'rE(6,*) ,  'BEGIN  PREFLIGHT' ,ATRIB(  1) ,  'TNa\’' ,TNCW 
ATR1B( 7 ) =RLOGN(TIMES ( 2 , 1 j , STDEV( 2 , 1 ) , 5) 

ATRIB(9)=0 
AT’RIB(13)=1 
ATRIB(15)=0 
ATRIB{5)=2 
ATRIB(3)=TNCW 
GO  TO  200 
100  CONTINUE 

IF  (ATRID(17)  .GT.  0)  THEN 
AT'R1B(  7 )  =ATRIB(  7 )  +ATR1B(  9 ) 
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ATRIB(9)=0 

ELSEIF  (ATOIB(9)  .GV.  0)  THEN 
ATRIB{7)=ATRIB(9) 

ATRTB(9')=0 

ELSE 

ADJUSa~TNCW-ATRIB(  3 ) 

NMFT(2)-NM}n’(2)+l 

VMDT(  2 )  2 )  +ADJTJST 

ATRIB(2.l)=TNCW 
A'rRIB(5)-0 
NAC.=A'rRIR{  1 ) 

nf=pfil(ima:.) 

A'1RIB(5)=0 

WRITE  (6,*),  'AFTER  PREFLI(3fr,PLANE,Q' ,TNOW,NAC,NF 
CALL  Fn^(NF,A!rRIB) 

Nia6-NNQ(  16 ) 

IF  (NN16  .GT.  0)  IHEN 
DO  699  I^1,NN16 

CALL  COPY(I,16,ATRIB) 

N1=ATRIB(1) 

IF  (N1  .EQ.  NAC)  TliEN 
CAIi,  RNDVE(I,16,ATRIB) 

GO  TO  693 
ENDIF 

699  CONTINUE 

VvTvI'TE ( G I ,  ' ERR  DID  I'iOT  REICvE  FIANE  AFTER  PREF'',NAC 
698  COOTINUE 

CAIL  a«ER(5,ATRIB) 

RETIJPJ'J 

ENDIF 

ENDIF 

200  CONTINUE 

CALL  TSHIFT 

WRITE  ( 6 ,  * ) ,  '  PREFLIGJ-IT,  1ST  SFT ' , ATRIB(  7 ) ,  '  2ND  SFT ' , ATRIB ( 9 ) 

CAIL  EOTER(1, ATRIB) 

CALL  FIILM(16,A1'RIB) 

RETURN 

END 

ie  if  "k  "k  "k -k '}: -k  "k  it 'k  "k  "k  ii  i.  rkkkkkkkk’kickk'kkickkitititk'kifitifitifk'k'kii-ifk’k'kk'kkk’kitirit'kitic’k'kieic'k'kit'kic'k 

*  READAT  * 

*  READS  IN  MAINT  TASK  TIMES  AND  PERCENTAGES ,  RESOURCE  AND  SPARE  * 

*  ALLOCATIONS  .AND  JRMET  RELIABILITY  DATA.  * 

'kiritit'kitick'kk'k'kkkkifk'kkkkk'kkkitkit'k'kkit'kitkifkk-kkie'k-kkit'k'kitifkkkkitick'kie'k'k'kirkk'kicitifkitkk 

SUBROUTINE  READAT' 

INTEGER  0(5) 

aiARACriER  A1’‘5,A:’*4,C(5)*5,A3*1 
REAI.  B3,B'1,B5,B6,B7,Z1,Z2,Z3 
***  READ  IN  WUC,  Him,  SPARES  AND  BRFAK  PROLABILITIES 
I-l 

701  CONTINUE 

READ(11,507,END=700)  AWUC( I ) ,XMrBM( I ) ,Z1, Z2, Z3 
l,COl)ES(I,2)  ,C0DES(1,3)  ,C0DES(  1 ,4 )  ,CRITA(  I )  ,CRITX;(  I )  ,CRITB(  I) 
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1=1+1 
GO  TO  701 
700  CCOTINUE 
MAXWUC=I-1 

'MAXWUC  =',MAXWUC 
IF  (I  .or.  399)  THEN 

WRITE(6,*) , 'ERR  IN  READMT,  l-iAM'WC  GT  399,  MAKWUC  =',MAXVv’UC 
ENDIF 

★  ★★★ 


***  READ  IN  TASKS,  TIMES,  PROBABILITIES,  DISTRIBUTIONS,  Al®  RESOURCES 
801  CONTINUE 


100 

101 


READ(12,900,END^800)A1,A2,R3,B4,B5,B6,B7,A3,C(1) ,D(1) ,C(2) ,D(2) 
1,C(3),D(3),C(4),D(4),C(5),D{5) 

DO  100  Il=l,MAXWUC 

IF  (AWUC(I1}  .EQ.  Al)  THEN 
1=11 

GO  TO  101 
ENDIF 

CCNTINUE 

WPITE(6,*), 'ERR,  DOES  NOT  RECOGNIZE  WUC',A1 

COfTINUE 

IF  (A2  .EQ.  'R&R  ')  THEN 
JJ=1 

ELSEIF  (A2  .EQ.  'CND  ')  THEN 
JJ=2 

ELSEIF  (AJ2  .EQ.  'FOM  ')  TIlEl'i 
JJ=3 

ELSEIF  (A2  .EQ.  'RIP  ')  THEN 
JJ=4 


EI^EIF  (A2  .EQ. 
JJ=5 


'NETS')  THEN 


ELSEIF  (A2  .EQ. 
JJ=6 


'CCM)' )  THEN 


ELSEIF  (A2  .EQ.  'BOOK')  THEN 
JJ=7 

ELSEIF  {A2  .EQ.  'RTS  ')  THEN 
JJ=8 


ELSEIF  (A2  .EQ.  'RES 
JJ=9 


THEN 


ELSEIF  (A2  .EQ.  'DQ'^N') 
JJ=10 


THEN 


ELSEIF  (A2  .EQ.  "TS  ')  THEN 
WRITE(6,*) , 'TS?' 

JJ=2 

ELSE 

1VRITE(6,*) ,  'rvlWUC,TASK'  ,I1,A2 
WRITE(6,*) , 'ER?^  IN  REIiDAT,  NO  MATCHES  IN  TYPE' 
STOP 
ENDIF 


TTMES(I,JJ)--=D4 

STDEV(I,JJ)=B5 

PERCNr(I,JJ)=D3 
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TMIN(I,JJ)=B6 

Tr'IAX(I,JJ)=B7 

DIST(I,JJ)=A3 

N=1 

DO  200  K=l,5 

IF  (TPLANE(l)  .EQ.  2)  I’HEN 
IF  (C(K)  .EQ.  '  ')  THEN 

NRE5C(I,JJ)=K-1 
GO  TO  400 


ELSEIF 

Ml=l 

(C(K)  .EQ. 

'423A0') 

THEN 

ELSEIF 

Ml=2 

(C(K)  .EQ. 

'423A1') 

THEN 

ELSEIF 

Ml=3 

(C(K)  .EQ. 

'423A4') 

THEN 

ELSEIF 

Ml=4 

(C{K)  .EQ. 

'426A2') 

THEN 

ELSEIF 

Ml=5 

(C(K)  .EQ. 

'43m') 

THEN 

ELSEIF 

Ml=6 

(C(K)  .EQ. 

'427A5') 

THEN 

ELSEIF 

Ml=7 

(C(K)  .EQ. 

'452AA-) 

THEN 

ELSEIF 

Ml=8 

(C(K)  .EQ. 

'452AB') 

THEN 

ITT  CITTir 

Mi=9 

!  r*  t  \r  \  rre'. 

.4-<V 

TiIEN 

ELSEIF 

Ml=10 

(C(K)  .EQ. 

'452AX') 

THEN 

ELSEIF 

Ml=ll 

(C(K)  .EQ. 

'462A0') 

THEN 

ELSEIF 

Ml=12 

(C(K)  .EQ. 

'423E5') 

THEN 

ELSEIF 

Ml=13 

(C(K)  .EQ. 

'426E2') 

THEN 

ELSEIF 

Ml=14 

(C(K)  .EQ. 

'427E0') 

THEN 

ELSEIF 

Ml=15 

(C(K)  .EQ. 

'427E4') 

THEN 

ELSEIF 

Ml=16 

(C(R)  .EQ. 

'427E2') 

THEN 

ELSEIF 

Ml=17 

(C(K)  .EQ. 

'427E3') 

THEN 

ELSEIF 

Ml=18 

(C(K)  .EQ. 

'427E1' ) 

THEN 

ELSEIF 

(C(K)  .EQ. 

'427E5') 

THEN 

Ml=19 

ENDIF 

IF  (C(K)  .EQ.  '431E1')  THEN 
Ml =20 

ELSEIF  iC(K)  .EQ.  '462E0-)  THEN 
Ml=21 
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ELSEIF  (C(K) 

•  EQ. 

'461E0') 

THEN 

Ml=22 

ELSEIF  (C(K) 

•  EQ. 

'423C0' ) 

THEN 

Ml=23 

ELSEIF  (C(K) 

.EQ. 

'423C1') 

THEN 

Ml=24 

ELSEIF  (C(K) 

.EQ. 

'423C2') 

THEN 

Ml=25 

ELSEIF  (C(K) 

.EQ. 

'423C3') 

THEN 

Ml-26 

ELSEIF  (C(K) 

•  EQ. 

'423C4') 

THEN 

Ml=27 

ELSEIF  (C(K) 

•  EQ. 

'426C2' ) 

THEN 

Ml=28 

ELSEIF  {C(K) 

.EQ. 

'451CA') 

THEN 

Ml=29 

ELSEIF  (C(K) 

.EQ. 

'451CB') 

THEN 

m=30 

ELSEIF  {C(K) 

.EQ. 

MSICX' ) 

THEN 

Ml=31 

ELSEIF  (C(K) 

.EQ. 

'455CB' ) 

THEN 

Ml=32 

ELSEIF  (C(K) 

.EQ. 

'455CA') 

THEN 

Ml  ==33 

ELSEIF  (C(K) 

.EQ. 

THEN 

'00001' ) 

Ml=34 

ELSEIF  (C(K) 

•  EQ. 

'00002') 

THEN 

Ml=35 

ELSEIF  (C(K) 

,EQ. 

'A^^^A  ') 

THEN 

Ml=36 

ELSEIF  {C{K) 

■EQ. 

THEN 

'ANTE  ') 

Ml=37 

ELSEIF  (C(K) 

.EQ. 

THEN 

'  I&C  ' ) 

Ml=38 

ELSEIF  (C(K) 
Ml=39 

ENDIF 

.EQ. 

'THEN 

'CNI  ') 

IF  (C(K)  .EQ. 

'COMPU')  THEN 

Mi=40 

ELSEIF  (C(K) 

.EQ. 

'DISPL') 

THEN 

mi-41 

ELSEIF  (C(K) 

.EQ. 

THEN 

'MICRO') 

Ml=42 

ELSEIF  (C(K) 

.EQ. 

'ARMFF' ) 

THEN 

Ml -4  3 

ELSEIF  (C(K) 

.EQ. 

'ARMAG' ) 

THEN 

mi-44 

ELSEIF  (C(K) 

.EQ. 

'TITE  ' ) 

THEN 

Ml -4  5 

ELSEIF  (C(K) 

.EQ. 

THEN 

'OOOv’3') 

Ml=46 

ELSEIF  (C(K) 

.EQ. 

'00004' ) 

'IHEN 

E-92 


Ml=47 

ELSEIF  (C(K)  .EQ.  '00005')  THEN 
Ml=48 

ELSEIF  (C(K)  .EQ.  '00006')  THEN 
Ml=49 

ELSEIF  (C(K)  .EQ.  '00007')  THE14 
Ml=50 
ENDIF 

ELSEIF  (TPLANE(l)  .EQ.  1)  THEN 
IF  (C(K)  .EQ.  '  ')  'I'HEN 

NRESC(T,JJ)=K-1 
GO  TO  400 


ELSEIF 

Ml=l 

(C(K)  .EQ. 

'452A5') 

THEN 

ELSEIF 

Ml=2 

(C(K)  .EQ. 

'452A4') 

THEN 

ELSEIF 

Ml=3 

(C(K)  .EQ. 

'458A2') 

I'HEN 

ELSEIF 

Ml=4 

(C(K)  .EQ. 

'452AA.') 

THEN 

ELSEIF 

Ml=5 

(C(K)  .EQ. 

'452AB') 

THEN 

ELSEIF 
Ml  =6 

(C(K)  .EQ. 

'452AC' ) 

THEN 

ELSEIF 

Ml=7 

(C(K)  .EQ. 

'452AX' ) 

THEN 

ELSEIF 

Ml=8 

(C(K)  .EQ. 

•■462A0' ) 

ailEN 

ELSEIF 
Ml =9 

(C(K)  .EQ. 

'454E1') 

THEN 

EISEIF 

Ml=10 

(C(K)  .EQ. 

'454EA' ) 

THEN 

EISEIF 

Ml=ll 

(C(K)  .EQ. 

'458E0') 

IHEN 

ELSEIF 

Ml=12 

(C(K)  .EQ. 

'458E1') 

THEN 

ELSEIF 

Mi=13 

(C(K)  .EQ. 

'458E3') 

THEN 

ELSEIF 

Ml=14 

(C(K)  .EQ. 

'458E2') 

THEN 

ELSEIF 

Ml=15 

(C(K)  .EQ. 

'452EA') 

THEN 

ELSEIF 

Ml-16 

(C(K)  .EQ. 

'462E0' ) 

THEN 

FLSEIF 

M.1---17 

(C(K)  .EQ. 

'46J.E0' ) 

THEN 

EISEIF 

Ml-18 

(C(K)  .EQ. 

'452C5') 

I'HEN 

ELSEIF 

Ml=19 

(C(K)  .EQ. 

'454C2') 

THEN 

EI'IDIF 

IF  (C(K)  .EQ.  '454C3')  TliEN 
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Ml=20 


ELSEIF  (C(K) 
Mi=21 

.EQ.  '454C4') 

THEN 

ELSEIF  (C(K) 
Ml=22 

.EQ.  '454C0') 

THEN 

ELSEIF  (C(K) 
Ml=23 

.EQ.  '451C:A') 

THEN 

ELSEIF  (C(K) 
Ml=24 

.EQ.  '451CB') 

THEN 

EI.SEIF  (C(K) 
Mi=25 

.EQ.  '451CX') 

THEN 

ELSEIF  (C(K) 
Ml=26 

.EQ.  ^455CB') 

THEN 

ELSEIF  {C(K) 
Ml=27 

.EQ.  '455CA') 

THEN 

ELSEIF  (C(K) 
Ml=28 

.EQ.  -00001') 

THEN 

ELSEIF  (C(K) 
MI=29 

.EQ.  '00002') 

THEN 

ELSEIF  (C(K) 
Ml=30 

.EQ.  '00003') 

THEN 

ELSEIF  (C(K) 
Ml=3i 

.EQ.  '00004') 

THEN 

ELSEIF  (C(K) 
Mi=32 

.EQ.  '00005') 

THEN 

ELSEIF  (C(K) 
MI=33 

.EQ.  '00006') 

THEN 

ELSEIF  (C(K) 
Ml=34 

.EQ.  '00007') 

THEN 

ELSEIF  (C(K) 
Ml=35 

.EQ.  '00008') 

THEN 

ELSEIF  (C(K) 
Ml=36 ’ 

.EQ.  'DISPL') 

THEN 

ELSEIF  (C(K) 
Ml=37 

.EQ.  'MICRO') 

THEN 

ELSEIF  (C(K) 
Mi=38 

.  EQ .  '  I ANTT  ' ) 

THEN 

ELSEIF  (C(K) 
Ml=39 

.EQ.  'METS  ') 

THEN 

ELSEIF  (C(K) 

.EQ.  'ARMFF') 

THEN 

Ml=40 

ENDIF 

IF  (C(K)  .EQ. 
Ml  =41 

ELSEIF  (C(K) 
Ml  =4  2 

EU;eIF  (C(K) 
Ml=43 

ELSEIF  (C(K) 
Ml=44 

ELSEIF  (C(K) 
Ml=45 


'ARMAG')  'IHEN 
•  EQ.  ''rEST4')  IFIEN 
.EQ.  'TEST3')  ITIEN 
.EQ.  'TEST2')  THEN 
.EQ.  'TISS  ')  'IHEN 
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200 

400 


EI^EIF  (C(K) 
Ml-46 

ELSEIF  (C(K) 
Ml=47 

ELSEIF  (C(K) 
Ml=48 

ELSEIF  (C(K) 
Ml=49 

ELSEIF  (C(K) 
Ml=50 


.EQ. 

'00003') 

THEN 

.EQ. 

'00004' ) 

THEN 

.EQ. 

'00005') 

THEN 

•  EQ. 

'00006') 

THEN 

.EQ. 

'00007' ) 

'THEN 

ENDIF 

ENDIF 

IF  (Ml  .EQ.  0)  THEN 

WRITE(6,*) , 'EPR,  DOES  NOT  RECOGNIZE  RESOURCES' ,C(K) 
ENDIF 

IF  (K  .EQ.  5)  THEN 
NRESC{I,JJ)=5 
ENDIF 


RESC(I,JJ,N)-M1 

QUAN(I,JJ,N)=D(K) 

N=N+1 


CONTINUE 
CQtrriNUE 
GO  TO  801 


.llNUCi 


507  P0RMAT(A5,4(1X,F9.1),2(1X,I3),1X,I2,3(1X,F4.2)) 

900  P0RMAT(A5,1X,A4,1X,F4.2,2X,F4.1,1X,F4.2,2(1X,F4.1),1X,A1 

1,5(1X,A5,1X,I1)) 

REnWJ 

END 


*  REAV  -  EVENT  25  * 

*  RESUBMITS  PLANES  (WHICH  LACK  EQUIPMENT  DUE  TO  RAV  AVAIIABILITY)  * 

*  BACK  IliTO  TOE  MAINTENANCE  NETOORK  AFTER  ONE  HOUR  * 

************************''*'****************a*********».****************** 


SUBROUTINE  REAV 

***  CHECK  LINE  (12)  AND  SHOP  (15)  NONAVAILABLE  QUEUE 
DO  200  11=12, 15,3 

IF  (NNQ(Il)  -GT.  0)  IKEN 
NN=NNQ(I1) 

DO  100  1=1, NN 

CALL  COPY( I,I1,ATRIB) 

IF  ('ITJOW-ATRIB(23)  .GE.  .99)  THEN 
CALL  RMOVEl I,I1,ATRIB) 

ATRIB(23)=6 
NNODE=ATRlB( ] 0 ) 

CAIi  ENTER (NNODE,A'TRIB) 

RETURN 

ENDIF 

100  CONTINUE 
ENDIF 
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200  COOTInTJE 
RETURN 
END 

’k'k  irit  ir-ki\  it  -kTc  \  \  ir  i<ii  iri'  "k  ir-k  if  it  icir  ■k’ir  icicir  it  iif'k  Aic-k  ifrit  ie  it  •k'k'k  ic-fe-k  -A  ■k'k  -k  -k  •k'k'.’t'kie'k'k  •k'k  'k'k 

*  RELPLN  -  EVEWT  21  * 

*  AFTER  A  CANN  i37RO  GETS  A  PART,  THIS  PITTS  THE  PLf.NE  BACK  INTO  'lllE  NMCS* 

*  uR  CAiy^  BIRD  QUEUE 

V-ir  :V  ****** +  *iTt*** ’*•*•****★’*'★***. ^**A*»ti***iVi  ***  +  ***★*★+  *'*  Ik** 

SUBROUTINE  RELPLN 
NAr=ATRIB( I ) 

IF  (ATRI3(11)  EQ.  2)  TilEN 
ATRI B  ( [' )  -'/OVNN  ( NAC ,  1 ) 

W  J\1nIN  ( T7AC ,  1 )  =  WCANN  ( MAC ,  2 } 

VOd^TN  ( NA£ ,  2 )  =VOlNN  ( NAC ,  3 ) 

ICANN ( NAC , 3 ) =WCANN ( NAC , 4 ) 

VCANN(M’'X:,4)==0 

IF  (WCANN(NAC, 1)  .EQ.  0  .AND.  ;CANN(NAC,?)  .Eo.  C  .AND. 

1  IA.-ANN(1-!AC,3)  .EQ.  0  .AND.  VCANN(NAC,4)  .EQ.  0)  THEN 

AmrB(23)-0 
CAIC,  FII£M(7,A'1RIB) 

WRITE(6,'*)  , 'FILE  IITO  NMCS  Q',AT'RIB(1) 

ELSE 

CALL  FILEM{  17 , AIR.CD) 

WITE(5,*), 'Flli';  imO  HANQ'VR  QUEEN  Q',ATRTP,(]) 

ENDIF 

ENDIF 

RETURN 

END 

********  V *****•/.  ****************;:***************<*•*****  *:*•.'.•  *************** 

*  REM'JVE  -  fA-EOT  5 

*  REMOVES  PLANES  FROM  TtE  SORTIE  QUEUE  (AFTER  THE  FL.IGIM'  HAS  ENDED)  AND* 

*  SENDS  IT  TO  CHECK  TOP.  FAILURES  * 

********T»r****************************  A  ***Vrfc**>.  ************************** 

SUBROUTINE  REMOVE 

*  RETCVE  THE  FIRST  ENiTlY  FROM  FILE  4:  SORTIE  FILE 

IF(NNQ(4) .EQ.O)  THEN 

vvRITE(6,  "  )  ,TICW,  'ERR,  IN  i d^iTCE " 

RETURN 

ENDIF 

CAIL  RMOVE (1,4, rtTRIB ) 

ATRir(2)=0 
ATRIB( 16)=0 
AT.  3(17)-0 
ATR.IB(5)=0 
ATR1B( 6 ) =0 
ATRIB(  3 )  =TNCK"J 
ATRIB{22)=0 
A'TRIB(  1 8 )  =^0 
ATRTB(2U)-0 
XX(‘3)  =0 
NAC-^ATRIE(  1 ) 

DOWN { NAC )-0 
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PARA(NAC)--0 
NF]XIWN=NFLCWN4  1 
Fm'Ul'=FHTOT+GORLEN 
SCOUNT( MAC ) =SCOUNT( NAC ) +1 
CAIjL  ENTER(7,ATRIB) 

REnJRN 

END 

****•(•*********************************•***+*+*•**•<•*****•******************* 

*  SHIFT  -  EVENT  6  * 

*  caijCulates  the  first  shift  time  every  day  and  transfers  planes  in  the* 

*  READY  QUEUE  TO  THE  NEEDING  PREFLIGHT  QUEUE,  AI,SO  DETERMINES  BEFORE  * 

*  SCHEDULING  SORTIES  IF  A  PLAN’D  NEEDS  PHASE  * 

■Aitiiif^-hirie'k'kic'k-kkic'k'kir-k-kiririr-kic'^'kir'k'^'kir-kiricirlciriricicic'kic-kicir-kic'k'kit'k'k'kiric'k'kir'ic'kic-k-k'k’k'k-k'k-k'kic 

SUBROUTINE  SHIFT 

NDAY=--ND,AY+1 

NUMDAY= I + ( TNCW/2  4 . 0 ) 

I^vI'l'E(6 ,  *  ) ,  'CALLED  SHIFT',  NUMDAY  ^  '  ,NUMDAY 
IF  (MISSN  .GT.  1)  THFJM 
NDAY-1 

TWEEK=9999 . 9 
ELSE 

IF  (NDAY  .EQ.  i)  THEN 
TMi:EK=TNOW+111.5 
ENDIF 
HOIF 

IF  {NDAY  .EQ.  6)  TIGIN 
NL\AY--0 
XX:i)^2.0 

CA[,L  SCHDL(6,48.0,A'1’RIB) 

ELSE 

*  aiECK  FOR  PREFLI(3fi' 

IF  (NDAY  .EQ.  1)  'THEN 

CALL  SCHDL(26,  .5,ATP.IB) 

.ELSE 

CAIJ.,  SCHD1,(26,4.0,ATRTB) 

ENDIF 

IF  {*”’<0(2)  .vjT.  0)  THEjN 
NQ2=NNQ{ 2 ) 

DO  10  1  =  1, NQ2 

CALL,  RM0\T;(  1,2,ATRIB) 

CAU,  FH£M(  1,ATRIB) 

10  CONTINUE 

ENDIF 

*  i^SET  SORl’iE  COUNTER  FOR  EAQI  AIRPLANE 
DO  100  1=1,24 

SCOUN]’(I)=0 
100  CCOT.TNUE 
XX(I)=1.0 
FDAY=FDAY^  J 
ENDSO^TNO'J^SFTO 
ENDSl-TNC-W+24 . 0-SFT2 
ENDS2-=TNCW+24 . 0 
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c 

c 


c 


NSFT=2 

CALL  SCHDL{10, . 000001, ATRIB) 

CALL  San:;L ( lO ,  SFTO  ,  ATRIB ) 

CALL  SCHDL(  10,24. 0-SF’T2 , ATOIB) 

CALL  SCHDL( 6, 24.0, ATRIB) 

;>fRITE(6,*  ) ,  '  IN  SHIFT, 'rkw, ENDS' , TOO/i, ENDS 0, ENDS  1 , ENDS 2 
BEGIN  PHASE  INSPECTION  CHECK,  IN  PEACPTTME  ONLY 
IF  (MISSN  .EQ.  1)  THEN 

FinOK^^FfnCT-  ( TPHASE  ( 7 )  *NPP ) 

IF  (EHsm  .GE.  7T*HASS{6)  .AND.  NP  .EQ.  6)  THEN 
NP^7 


NPP=r^Pi-l 


CALL  SCHDL(13,S,FTO+.05,ATRIB) 
EISEIF  (EHim  .GE.  TPHASE(5)  .AND. 
NP=6 

a'LJ.,  SaiOL (13,  SFTCh-  .  05 ,  ATOIB ) 
ELSEIF  (FHTOK  .GE.  TPHASE{4)  .AND. 
NP=5 

CALL  SaDL(13,SrrO+.OS,Al’RIB) 
ELSEIF  (FHTOK  .GE.  TPHASE 03)  .AlO. 
NP=^4 

CALL  SC-iDL(  13,SET0+,05,ATRIB) 
ELSEIF  (FffTOK  .GE.  'l’PHASE(2)  .AND. 

CATL  SCHDL(13,SFT0+.05,ATinB) 
EI.SEJ.f  (FHTOK  .GE.  TPHASE{ll  .AND. 
NP=2 


NP  .EQ.  5)  'IHEN 


NP  .EQ.  4)  THEN 


NP  .EQ.  3)  ITrlEN 


NP  .EQ.  2)  THEM 


NP  .EQ,  1)  HEN 


CAJJ.  £CHDL(  13,Sn’0+.05,ATRIB} 

ELSEIF  (FHTOK  .GE.  0.0  .AND.  NP  .EQ.  0)  -niEN 
NP^l 


C'\LL  SQDL  ( 1 3 ,  SFT0+ .  05 , ATRIB ) 
ELSE 

WRITE ( 6 , * ) , 'NO  PHASE  NEEDED' 
ENDIF 


FJflJIF 

Fi4DIF 


EM) 


SHOP2  -  EVEt^-i'  10  * 

*  CAI-CUIATES  TASK  TIMES  FOR  ALL  SIDP  MAINT  EVEI'TS  * 

SUBRCX/ITNE  SHOP2 
IF  (XX(])  ,EQ.  1)  'IHEN 

WRI'TO  ( 6 , '  )  ,  '  ERI^  IN  SHOP2 ,  BEGINN 1  .HG,  XX  (  1 )  ' ,  XX  (  1 ) 

RETURN 

ENDIF 

N141K:=ATR1B(  5 ) 

NAC-A»TR1B(  1 ) 

IF  RESOURCES  WERE  UNAVAILABLE,  RECAU.  TASK  TIME 
IF  (ATC1B(17)  .GI.  0)  niEN 
IF  (ATP1B(9)  .GT.  0)  'NIEN 
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ATRIB ( 7 ) =ATRIB ( 7 ) +ATRIB ( 9 ) 

ATRIB(9)=0 
ENDIF 
GO  TO  100 
ENDIF 

IF  (ATRIB(9)  .GP.  0)  TEIEN 
ATRIB(7)=ATRIB(9) 

ATRIB(9)=0 

ELSE 

ATRIBf 15)=0 
PROB2=UNFRM( 0 . 0 , 1 . 0 , 5 ) 

PCTl^PERCNT  ( Nl-^UC ,  5 ) 

PCT2=PERCOT’  ( NWLJC ,  6 )  +PCT1 
PC1’3=PERCOT(  NWr ,  7 )  +PC1'2 
NOT  REPAIRABLE  THIS  STATION 
IF  (PROB2  .LE.  PCTl)  THEN 
JJ=5 

ATRIB(13)=5 

CONDEMNED 

ELSE  IF  (PROB2  .LE.  PCl’2)  THEN 
JJ=6 

ATRIB (13) =6 
BENCH  CHECK  OKAY 
ELSE IF  (PROB2  .LE.  PCT3)  THEN 
JvT=7 

ATRIB( j  3)=7 
REPAIR  THIS  STATION 
ELSE 
JJ=8 

ATRIB(13)=8 

ENDIF 

IF  (DIST(NWUC,JJ)  .EQ.  'L')  THEN 
ATRI B ( 7 )  =RLO(3^ ( TIMES  ( NWUC ,  vIJ ) ,  STDEV(  NWUC ,  JJ ) ,  5 ) 

ELSEIF  (DIST(NWUC,JJ)  -EQ.  'T')  THEN 

AT':;JB(7)=TR1AG(TMIN(NWUC,JJ),TIMES(NWIX;,JJ)  ,TKAX(NWL)C,  JJ)  ,5) 
ELSEIF  (DIST(NW(JC,JJ)  .EQ.  'N')  THEN 

ATRIB {  7  )  =RNORM ( TIMES  ( NV'TUC  *  JJ ) ,  STDE^/(  NWC ,  JJ ) ,  5 ) 

ELSEIF  (DisT(IvlWUC,JJ)  !eQ.  'U')'tHEN 

ATRIB  ( 7 )  =UNFRM(  TIMES  ( NWUC ,  JJ ),  STDEV(  NWIX: ,  JJ ),  5 ) 

ENDIF 

ATRIB(9)=0 

ENDIF 

100  COJITNUE 

CALL,  TSHIFT 

IF  (ATR1B(7)  .LE.  0)  THEN 
CALL  FILEM( 14, ATRIB) 

ENDIF 

WR1TE(6,*) , 'INOJ  =  ',TNCW,  'PLANE  ^  '.ATRIB(l) 

\4RITE(6,*) ,  '  SHOP,  SHIFl’  1  AND  2' ,ATRIB(7)  ,ATRIB(9)  ,NWUC 
IF  (ATRIB(13)  .EQ.  5  .AND.  ATR1B(9) .EQ.O)  THEN 
V'iRn’E(6,*),  'PART  WILL  GO  TO  DEPOT  LATER' 

AT’RIB(18)=9 


ENDIF 

RETURN 

END 

*  SORTIE  -  EVENT  2  * 

*  SCHEDUI^S  THE  ACItlAL  SORTIES,  TAKES  PLANES  OUT  OF  THE  APPROPRIATE  * 

*  QUEUES,  RESaiEDULES  SORIIES  IF  THERE  ARE  NO  PLANES  AVAILABLE,  AND  * 

*  DECLARES  VvHEN  RESCHEDULED  SORTIES  ARE  MISSED 

SUBROUTINE  SORTIE 
INTEGER  NF0F'?MQ(5) 

XX(2)=0 

NFORM2=0 

NFORM3(1)=^0 

NFOR^^3(2)^0 

NFORI«3(3)-0 

NFORM3(4)=0 

NFORFQ(5)=G 

NFORM=ATRIB(  19 ) 

N19=ATRIB(19) 

MM1SS=ATRIB( 24 ) 

N99-ATRIB(4) 

***  IF  MISSION  IS  AIR  TO  AIR,  CHECK  IN  A/A  FMC  QUEUE  FIRST 
IF  (M^^SS  .EQ.  1)  THEN 
NQ9=NNQ(8) 

IF  (IKjy  .GT.  0  .AND.  NIORM  .GT,  U)  T’HEl'J 
IF  (NFORM  .LE.  NQ9)  THEN 
NF0RMQ(1)=^NR1FM 
NFORK-0 
EISE 

NFORI^(  1)=NQ9 
NI-’ORM-NEORM-NQg 
ENDIF 
FJjSE 

NF0RMQ{1) ^0 
3?:ndif 
{jriQ-Nnanr  o  \ 

IE  (NQ9  -CT.  0  .AND,  NTORM  .GT,  0)  T'HE^l'J 
IF  (NFORM  .LE.  NQ9)  THEN 
NF0RMQ(2)---NF0RM 
NFORH.=0 
EI.SF. 

NFORM3(  2 ) -^NQg 
NFORM-NFORM-NQ9 
ENDIF 
ELSE 

NFGRMQ(2)=0 

ENDIF 

NQ9--=NNQ(  11) 

IF  (NQ9  .GT.  0  .AND.  NFORM  .GT.  0)  THEN 
IF  (NFORM  .LE.  NQ9)  THEN 
NFORMQ(4)--^NFORM 
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*** 


NFORM=0 

EnJ5E 

NFOR>Q(4)=NQ9 

NF0RM=NF0RM-NQ9 

ENDIF 

ELSE 

NFORMQ(4)=0 

iM)IF 

NQ9=NNQ(2) 

IF  (NQ9  .GT.  0  .AND.  NFORM  -GT.  0)  THEN 
IF  (NFORM  .LE.  NQ9)  THEN 
NF0RiyQ(5)=NF0RM 
NFORM=0 
FXSE 

NFORMQ(5)=lNi09 

IW3RM^NF0RM-NQ9 

NFORM2=l 

ENDIF 

ELSEIF  (NFORM  .GT.  0)  THEN 
NFORM2=l 
ELSE 

NI’ORMQ(5)=0 

ENDIF 

CHECK  FOR  AVAILABLE  A/C  IF  MISSION  IS  AIR/GND 
ELSEIF  (M^^SS  .EQ.  2)  THEN 

IF  (Na9  .Gr.  0  .AND.  NFORM  .GT.  0)  THEN 
IF  (NFORM  .LE.  NQ9)  THEN 
NFOPMQ(l) INFORM 
NFORM=0 
ELSE 

NF0RM3(1)=NQ9 

NFORM^NFORM-NQ9 

ENDIF 

Fi:SE 

NPORMa(I)=0 

ENDIF 

NQ9^=NNQ(10) 

IF  (N09  .GT.  0  .AND.  NFORM  .GI’.  0)  'IHEN 
IF  (NFORM  .LE.  NQ9 )  THEN 
NF0RMQ(3)=NF0RM 
NI'’ORM=0 
ELSE 

NF0RMQ(3)=NQ9 

NFORM-NFORM-NQ9 

EIOIF 

ELSE 

NFORMQ(3)=0 

ENDIF 

NQ9=1'1NQ(11) 

IF  (NQ9  .GT.  0  .AND.  NFGRM  .GT.  0)  THEN 
IF  (NFORM  .LE.  NQ9)  THEN 
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NF0RMQ(4)=^NF0FiM 

NFORM=0 

EI£E 

NK)RM3(4)=NQ9 

NFORM=NFORM-NQ9 

ENDIF 

ELSE 

NFORMQ(4)=0 

ENDIF 

NQ9^NNQ(2) 

IF  (NQ9  .GT.  0  .AND.  NFORK  .GF.  0)  THEN 
IF  (NFORM  .LE.  NQ9)  'PHEN 
NFORI^(5)=NFOFM 
NFORM=0 
ELSE 

NF0RMQ(9)=NQ9 

NFORM-NFORM-NQ9 

NFORM2-1 

ENDIF 

ELSEIF  (NFORM  .GF.  Oj  THEN 
NFORM2=l 
ELSE 

NPORNS2(5)=0 

ENDIF 

***  aiECK  TOR  AVAILABLE  A/C  IF  MISSION  IS  AIR/Q®  NUC 
ELSEIF  (MI-USS  .EQ.  4)  THEN 
NQ9=NNQ(11) 

IF  (NQ9  .GT.  0  .AND.  NFORM  .GT.  0)  THEN 
IF  (NFORM  .LE.  NQ9)  THEN 
NFORID(4)=Nf'ORM 
NFORM=0 
EIi5E 

NFORIQ(4)=NQ9 
NFORM=NPORM- NQS 
ENDIF 
ELSE 

NroRMQ(4)-0 

ENDIF 

NQ9=NNQ(2) 

IF  (NQ9  .CT.  0  .AND.  NFORM  .GT.  0)  THEN 
IF  (N.FORM  .LE.  N09)  THEN 
NPORMQ(5)=NFORM 
NFORM=0 
ELSE 

NFORMQ(5)=NQ9 

IT'ORM^NFORM-r«39 

NFORM2=I 

ENDIF 

ELSEIF  (NFORM  .GF.  0)  THEN 
NfORM2=l 
ELSE 

NFORFU(5)-0 
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*** 


ENDIF 

CHECK  FOR  AVAILABLE  A/C  IF  MISSION  IS  DUAL  ROLE 
ELSEIF  (I^SS  .EQ.  3)  THEN 
NQ'i=NN0(ll) 

IF  (NQ9  .GT.  0  .AND.  NIDRM  .GT.  0)  THEN 
IF  (NFORM  .LE.  NQ9)  THEN 
NFOR]yiQ(4)=NPORM 
NFORM=0 
ELSE 

NFORf^(4)=NQ9 

NFORM=NFORM-NQ9 

ENDIF 

ELSE 

NFORMQ(4)=0 

ENDIF 

I'IQ9=NN0(2) 

IF  (NQ9  .GT.  0  .AND.  NFORM  .GT.  0)  IHEN 
IF  (NFORtI  .US.  NQ9)  THEN 
NFORNQ( 5 ) =NFORM 
NFORM=0 
ELSE 

NFORMQ( 5 ) =NQ9 
NFORM=NFORI'i-NQ9 
NKIRM2=1 
ENDIF 

ELSEIF  (NFORM  .GT.  0)  THEN 
NFORM2=l 
ELSE 

NFORM0(5)=0 

ENDIF 

ELSE 

WRITE (6,*), 'ERR  IN  SORIIE,  MMISS  IS  WRONG ',MMISS 
ENDIF 

IF  ((MISSN  .GI’.  1  .OR.  N99  .EQ.  4  .OR.  TPLANE(l)  .EQ.  2 
1  .OR.  (TPLANE(l)  .EQ.  1  .AND.  MISSN  -EQ.  I)) 

I  .AND.  NFORM  .LT.  N19)  THEN 

IF  (N99  .GT.  0)  THEN 
XX(6}=XX(6)-1 
ENDIF 

DO  200  1=1,5 

IF  (I  .EQ.  1)  THEN 
NQ=8 

LLSEIF  (1  .EQ.  2)  THEN 
NQ=9 

ELSEIF  (I  .EQ.  3)  THEN 
1^=10 

ElfiEIF  (I  .EQ.  4)  THEN 
I'1Q=U 

ELSEIF  (]  .EQ.  5)  THEN 
NQ=2 
ENTJIF 
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IF  (NFOERMQ(I)  .GT.  0  .AND.  TNGt^  .LT.  ENDSO)  THEN 
DO  201  Il=l,NFOR^S3(I) 

CALL  RMDVE(1,NQ,ATRIB) 

C  WRITE(6,*) , 'T' ,TNCW, 'A/C=',ATRIB(  1), 'STAR!  SORTIE, Q' ,NQ,N99 

IF  (MISSN  .GT.  1  .AND.  ATRIB(21)  .EQ.  0)  I’HEN 
ATRIB(21)=TNCW 
ENDIF 

ATRIB(27)=0 
A1’RIB(24)=MMISS 
CALL  FILEM(4,ATRIB) 

201  CONTINUE 

ENDIF 

200  CONTINUE 

ATRIB( 19 ) =N19-NFORM 
ATRIB(27)=0 

CALL  SCHDL(33,TABORT(l) ,ATRIB) 

ENDIF 

IF  (NFORM2  .NE.  0)  THEN 
IF  (MISSN  .GT.  1)  THEN 
MSDSOR=MSDSOR+NFORM 

WRITE ( 6, *)  ,1^^, 'MISSED  SORTIE  WITH  SHIP  QUANT  OF:  '  ,NFORM 
XX(2)=0 
XX(6)=XX{6)-1 
RETURN 
ENDIF 

IF  (N99  .EQ.  4)  THEN 
MSDSOR=MSDSOR+NFORM 
XX(2)=0 

WRITE(6,*) ,TNOW, 'MISSED  SORTIE  WITH  SHIP  QUANT  OF: ' ,NFORM 
XX(6)=XX{6)-1 
RETUI^' 

ENDIF 

XX(2)=NFORM 
ATOIB(4)=N99 
ATRIB(4)=ATRIB(4)+1 

J.J.  ‘t  j  *1jV.  i) 

C  WRrrE(6,*),l'NOW, 'IRESCHED  A 

XX(6)=XX(6)+1 

ELSEIF  (ATRIB(4)  .EQ.  2)  THEN 
C  WRITE ( 6 , * ) , TNCW, ' 2RESCHED  A 

ELSEIF  (ATRIB(4)  .EQ.  3)  TIIEN 
C  WRITE ( 6 , * ) , TNOW, ' 3RESCHED  A 

ELSEIF  (ATRIB{4)  .EQ.  4)  THEN 
C  WRITE  { 6 ,  * )  ,TNOW,  '  4RESaffiD  A 

ENDIF 

A'TRIB(  19)=I'JFORM 
CAIL  SCHDL(2,0.5,ATRIB) 

ENDIF 
RETURN 
END 

*******  **************************************■******  +  ***  **v<t**yr  *+********* 

*  SSHIfT  -  EVEI'T  10  * 


SORTIE  WIIH  SHIP 

SORTIE  WITH  SHIP 
SORTIE  WITH  SHIP 
SORTIE  WITH  SfilP 


FOilM  OF'  ,NPORM 

FORM  OF' ,NFORM 
EDRM  OF',NFORM 
FORM  OF' ,NFORM 
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*  CALCULATES  SECOND  AND  THIRD  SHIFT  TIMES  AND  RESUBMITS  PLANES  TO  * 

*  MAIN!  NEIVDRK  AFTER  THE  THIRD  SHIFT 
************************************************************************** 

SUBROUTINE  SSHIFT 
IF  (NSFT  .EQ.  2)  THEN 
NSFT=0 

WRITE(6,*) ,  'CALL  SSHIFT, TNCW,ENDSO,NSFT='  ,TNOW,ENDSO,NSFr 
XX(1)-1 
DO  80  1=1,35 
JRSC(I)=C 
80  CONTINUE 

IF  (TPLANE(l)  .EQ.  1)  THEN 
JRSC(2)=5 
JRSC(8)=2 

ELSEIF  (TPLANE(I)  .EQ.  2)  THEN 
JRSC(5)=5 
JRSC(11)=2 
ENDIF 

ELSEIF  (NSFT  .EQ.  0)  THEN 
NSFT=I 
XX{1)=0 
ENDS0=ENDS1 
XX(3)=ENDS1-1.G 

T‘miTE(6,*) , 'CAU.  SSHIFT, TNCW,ENDSO,NSFT=  '  ,TNCW, ENDS 0, NSFT 
CALL  SCHDL( 20, .000001, ATRIB) 

ELSEIF  (NSFT  .EQ.  1)  THEN 
NSFT=2 
XX(1)=0 
ENDS0=ENDS2 
XX(3)=ENDS2-1.0 

WRITE(6,*) , 'CALL  SSHIFT, TNCW,ENDS0,MSFT=  ' ,TNCW, ENDS 0, NSFT 
***  REINITIALIZE  RESOURCES 

CALL  SaroL( 20, .000001, ATRIB) 

ELSE 

WRITE(6,*), 'ERR  IN  SSHIFT,  NSFT  IS  WRONG' 

C'^TnTt:’ 

J.  1. 

C  RESUBMIT  PLANES  INIO  MAIN! 

CALL  SCHDL( 32, .0001, ATRIB) 

RETURN 

END 

*************  **:V****:t**************  *******************************  ******* 

*  STUFF  -  EVETJT  24  * 

*  GANNS  PARTS  FROM  A  DONOR  AIRCRAFT  WHEN  A  CANN  BIRD  IS  21  DAYS  OLD,  * 

*  ACTUAIJ:.Y  BEGINS  C®iNN  AT  19  DAY  MARK 
************************************************************************ 

SUBROUTINE  STUFF 
INTEGER  L(5) ,NDONR 
IF  (A'TRIB(22)  .EQ.  99)  THEN 
L(i)=L(2) 

L(2)=L(3) 

L(3)=LM) 

L(4)=L(5) 
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L(5)-0 
GO  TO  200 
ENDIF 

DO  100  I=l,NNQ(i7) 

CALL  COPY (1,17 , ATRIB ) 

IF  ( (TNOW-ATRIB(23) )  .GT.  456.0)  THEN 
CALL  IM0VE{I,17,ATRIB) 

MHQ=ATRIE(1) 

L(1)=ATKIB(5) 

L(2)=WCANN(^^HQ,1) 

L(3)=WCANN(MHQ,2) 

L(4)=WCANN(MHQ,3) 

L(5)-VCANil(MHQ,4) 

ATRIB(1)=ND0N(I) 

NDONR=NDON(I) 

NDON(I)=0 

ATRIB(23)=TN0/ 

WRITE(6,*) , 'FILE  DOI«R  IN  Q17  (OUT  OF  ORDER)  '  ,ATRIB(  1) 
CALL  FILEM( 17, ATRIB) 

GO  TO  300 
ENDIF 

100  CONTINUE 
300  CONTINUE 

WRITE (6,*),  'TAKING  DONOR  AIRCRAFT  OUT  OF  Q',TNCVJ 
CALL  RMOVE( 1,6, ATRIB) 

ATRIB(1)=MKQ 

VOiNN  { NDONR ,  1 )  =WCANN  ( MHQ ,  1 ) 

WCANN(  NDONR,  2 )  =VCANN(MHQ,  2 ) 

WCANN  ( NLX)NR ,  3 )  =WCANN  ( MHQ ,  3 ) 

WCANN(NDONR, 4 ) =WCANN(MHQ, 4 ) 

ATRIB { 15 )=0 

A'I'RIB{22)=99 

TFIL=PFIL(MHQ) 

PFIL  ( MHQ )  =PF  IL  ( NDONR ) 

PFIL( NDONR )=TFIL 
DO  500  1=1,40 

TEMP 1=PWUC{ MHQ, 1,1) 

PWUC (MHQ, I , 1 ) =PWUC ( NDONR, I , 1 ) 

PWUC ( NDONR, I , 1 ) =TEMP1 
TEMP1=PWUC (MHQ, I , 2 ) 

PWUC ( MHQ, I , 2 ) =PWUC ( NDONR, I , 2 ) 

PWUC ( NDONR , I , 2 ) =TEMP 1 
TEMP1=PMAINT(MHQ, I , 1 ) 

PMAINT(  MHQ,  1,1)  =PMAINT(  NDOI'IR,  1,1) 

PMAINT  ( NDONR , 1 , 1 ) =TEMP 1 
l’EMPl=PMAINT(MHQ,  1,2) 

PMAINT(  MHQ,  1,2)  =PMAINT(  NDOt'IR,  1,2) 

PHAINT(  NDONR,  1,2)  -TEMPI 
500  CONTINUE 
200  CONTINUE 

IF  (L(l)  -GT.  0)  THEN 
ATRIB(5)=L(1) 
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WRITE (6,*), 'WORKING  ON  OLD  HQ' ,ATRIB(  1)  ,A'rRIB(5) 

CALL  EWrER{10,ATRIB) 

ELSE 

WRITE(6,*), 'READY  Q  AFTER  MASSIVE  CANN,NF' ,TNCW,  ATRIB(1),NF 
NF=PFIL(ATRIB(1) ) 

WCANN(ATRID(1),1)=0 
WCANN( ATRIB( 1 ) , 2 ) =0 
WCANN(ATRIB(1),3)=0 
WCANN(ATRIB(1),4)=0 
IF  (NF  ,EQ.  0)  THEN 
NF=--2 
ENDIF 

CALL  FILEM(NF,ATRIB) 

ENDIF 

RETURN 

END 

•A-k-k-k'k'k-A:iri(iririK'k'k'k'kiciricir'kirici^-^-ki('kieicicirir'k'k'k-kirir'k'k'kiciriticiicic'icir-^-iric'kirif'i^''^‘ir'k'k'k-k’k-ie'k'k-kir-k’ie-k 

*  TSHIFT  * 

SUBROITITNE  TSHIFT 
Sl=^ENDS0-TNCW-0 . 025 
IF  (SI  .LE.  0.0)  THEN 
51=0.00 

WRITE(6,*) , 'SI  LE  0 . 0,ENDS0-'IWW' ,S1,ENDS0,TNCW 
ENDIF 

IF  (ATRIB(7)  .GT.  SI)  THEN 
ATRIE(9)=ATRIB(7)-S1 
ATRIB(7)=S1 
ELSE 

A'rRIB(9)=0.0 

ENDIF 

RETURN 

END 

*  WARMUP  -  E\'Ein’  9  * 

*  CHANGES  WARMUP  PARAMETERS  TO  REGULAR  PARAMETERS.  IT  SIGNIFIES  THE  * 

*  END  OF  WARMUP  * 

"A: 'kn  'A  ’A  A  A  A  A  A  •krfit'k'k'ie'k'ff'trir’k'kir'k'k'k'icit'k’Ar'k'k-^'kir’k^'k'k'k^'k'kir'k^t'k’k'k'A'k'k'k’k'k'kirir’k'ic'ic-k'k'k 

SUBROUTINE  WARMUP 
INTEGER  NS (399) 

WRITE  ( UNIT=8 ,  FNT=9g ) 

***  FIND  OUT  WHAT  SPARES  ARE  IN  THE  "SYSTEM"  DURING  CHANGEOVER 
DO  100  I=11,MAXWUC 

IF  (MISSN  .EQ.  1)  THEN 

NS(  I )  CODES (1,2)  CODES(  1 , 3) -NSFARE(  I ) 

ELSE 

NS(  I )  CODES(  1,2)  CODES(  1,3)  CODES(  1,4  )-NSPARE(  I ) 

ENDIF 

100  CONTINUE 

*  NPLANE=SCENE(1) 

NSORTYCCENE(2) 

NUMSFT=SCENE(3) 
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it 'kick 

200 

99 


MISSN=SCENE(4) 

S0RLEN=SM1SS(1) 

SFT1=SMI5S(2) 

SFT2=^SMISS(3) 

DSGR=SMISS(4) 

FFREQ=SMISS(5) 

TIMFLT=SMISS(6) 

SFT0-SMISS{7) 

FDAY=0 

NFLOWN=0 

FHTr)T=0 

<2roABT=0 

NBRK=0 

MSDSOR=0 

NFIX( 1)=0 

NfIX(2)--C 

NFIX(3)=0 

NFIX(4)=0 

ALLOW  FOR  IHE  SPARES  IN  THE  "SYSTEM- 
DO  200  I=11,I4AXWUC 

IF  (MISSN  .EQ.  1)  THEN 

NSPARE ( I ) =CODES { I , 2 ) +CODES ( I , 3 ) -NS { I ) 

ELSE 

NSPARE  ( I )  CODES  (1,2)  CODES  (1,3)  CODES  ( 1 , 4 )  -NS  ( I ) 
ENDIF 

REDEFINE  FAILURE  CLOCKS 
TFAIL( I ) =EXPON(XMrBM( I ) , 5 ) 

CONTINUE 

FORMAT(/, IX, 'END  OF  WARMUP  PERIOD',/) 

RETURN 

END 
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APPENDIX  F.  SAMPLE  OUTPUT  FILE:  FIS-RUT 


THIS  PAGE  INTENTKmLl.Y  LEFT  BLANK 


APPENDIX  F.  Sample  Output  File:  F15.RP1’ 


*****  (beginning  of  file) 

SLAM  OiriPUT 

F-15E  SIMULATION 

SCENARIO  TYPE:  1  PEACETIME  SCENARIO 

2  SURGE  SCENARIO 

3  SUSTAINED  SCENARIO 

4  MOBILITY  SURGE  SCENARIO:  2.5  UTE 

5  MOBILITY  SURGE  SCENARIO:  3.0  UTE 

WARMUP  SCENARIO  1  NUMBER  OF  DAYS  30.0000 


MISSION  SCENARIO  I 


DAY 

#FLN 

#MISS 

TOl'  FH 

SGR 

FMC% 

PMC% 

nm:s% 

NMCR% 

BK 

GA 

1 

25 

0 

42.5 

1.04 

0.827 

0.132 

0.960 

0.0000 

0.0017 

4 

1 

2 

51 

0 

86.7 

1.06 

0.794 

0.165 

0.959 

0.0000 

0.0009 

8 

1 

3 

78 

0 

132.6 

1.08 

0.773 

0.183 

0.956 

0.0000 

0.0022 

10 

1 

4 

103 

2 

175.1 

1.07 

0.771 

0.179 

0.950 

0.0000 

0.0029 

20 

1 

5 

128 

3 

217.6 

1.07 

0.753 

0.191 

0.944 

0.0000 

0.0025 

25 

2 

6 

7 


(portions  of  file  omitted 


29 

546 

27 

928.2 

1.08 

0.616 

0.295 

0.911 

0.0021 

0.0069 

108 

8 

30 

570 

28 

969.0 

1.08 

0.615 

0.296 

0.911 

0.0023 

0.0079 

113 

9 

END 

OF  WARMUP  PERIOD 

31 

25 

0 

42.5 

1.04 

0.627 

0.322 

0.950 

0.0064 

0.0067 

3 

1 

32 

51 

0 

86.7 

1.06 

0.670 

0.280 

0.950 

0.0032 

0.0039 

8 

1 

33 

76 

0 

129.2 

1.06 

0.680 

0.271 

0.950 

0.0021 

0.0035 

13 

1 

34 

35 

36 

98 

3 

166.6 

1.02 

0.681 

0.279 

0.960 

0.0011 

0.0020 

19 

2 

37 

122 

8 

207.4 

1.02 

0.682 

0.276 

0.958 

0.0009 

0.0017 

23 

2 

.  ()^x)rtions  of  file  cmittecl) 

196 

197  2988  211  5079.-'  1.05  0.535  0  338  0.873  0.0336  0.0101  699  37 
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198 

3011 

225 

5118.7 

1.05 

0.534 

0.338 

0.872 

0.0349 

0.0100 

702 

37 

199 

3037 

238 

5162.9 

1.05 

0.532 

0.338 

0.870 

0.0363 

0.0100 

708 

37 

200 

3062 

250 

5205.4 

1.05 

0.530 

0.339 

0.869 

0.0374 

0.0100 

714 

38 

201 

202 

203 

3089 

260 

5251.3 

1.05 

0.529 

0.339 

0.868 

0.0383 

0.0099 

718 

39 

204 

3113 

272 

5292.2 

1.05 

0.523 

0.344 

0.867 

0.0387 

0.0102 

724 

40 

205 

3141 

282 

5339.8 

1.05 

0.521 

0.345 

0.865 

0.0395 

0.0102 

730 

40 

206 

3164 

294 

5378.9 

1.05 

0.519 

0.345 

0.864 

0.0402 

0.0103 

738 

40 

207 

3192 

303 

5426.5 

1.05 

0.517 

0.346 

0.863 

0.0409 

0.0104 

747 

41 

208  3222 

209 

210 

BREAK  RATE 

3u7 

5477.5 

1.05 

0.515 

0.346 

0.861 

0.0415 

0.0104 

755 

41 

0.2343  755 

MANPa^ER  SPACES  PER  AIRCRAFT 
22.3750  24 


FIX  RATE: 


2 

HRS  OR  LESS 

0.6627 

503 

4 

HRS  OR  LESS 

0.8472 

643 

8 

HRS  OR  LESS 

0.8946 

679 

MjRE  TliAN  8  HRS 
0.1054  80 

RESOURCE  AVAIL  %  AVAIL  /  UNAVAIL/  AJJDOCATION 


1 

0.71 

779 

182 

5 

51 

1103 

786 

4 

2 

0.71 

3777 

53 

40 

52 

4277 

0 

37 

3 

0.71 

209 

29 

1 

53 

409 

24 

4 

4 

0.71 

1129 

703 

6 

54 

1856 

2849 

9 

5 

0.71 

204 

43 

2 

55 

502 

428 

3 

(portions  of  file  omitted 


39 

1.00 

491 

4793 

1 

89 

456 

4895 

1 

40 

1.00 

102 

22 

1 

90 

183 

99 

1 

41 

1.00 

36 

5 

1 

91 

68 

20 

1 

42 

1.00 

7 

0 

1 

92 

4 

0 

1 

43 

1.00 

6 

0 

1 

93 

20 

0 

1 
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44 

1.00 

81 

12 

1 

94 

130 

30 

1 

45 

1.00 

78 

9 

1 

95 

77 

10 

1 

46 

1.00 

0 

0 

0 

96 

0 

0 

0 

47 

1.00 

0 

0 

0 

97 

0 

0 

0 

48 

1.00 

0 

0 

0 

98 

0 

0 

0 

49 

1.00 

0 

0 

0 

99 

0 

0 

0 

50 

1.00 

0 

0 

0 

100 

0 

0 

0 

SPARE  #AVAIL  #UNAVAIL  #DEPar  QUOTA  # 


11 

1100 

0 

0 

0 

1 

2 

12 

11A09 

1 

0 

0 

1 

2 

13 

ILAB 

1 

0 

0 

1 

2 

14 

llADE 

0 

0 

0 

1 

2 

15 

llAF 

0 

0 

0 

1 

2 

• 

(portions 

of 

file  omitted) 

373 

74PF0 

2 

0 

0 

2 

4 

374 

74PG0 

6 

0 

0 

2 

4 

375 

74PHO 

21 

0 

0 

2 

4 

376 

74PK0 

5 

0 

0 

2 

4 

377 

74PL0 

20 

0 

0 

2 

4 

378 

74PN0 

11 

0 

0 

2 

4 

379 

74P99 

3 

0 

0 

2 

4 

WUC  QUANT 

MDT  QUANI 

'  MRT  FAIL 

CRITB 

1 

THRU 

2341 

1.4494 

2 

PREFL 

402 

0.4991 

3 

BPO 

2401 

4.3310 

4 

HPO  1 

26 

66.6486 

5 

HPO  2 

7 

120.1483 

6 

HPO  3 

6 

151.0842 

7 

PE  1 

6 

190.3671 

8 

PE  2 

0 

0.0000 

11 

1100 

0 

n  nnnn 

1^0 

1  ccnn 

JL  • 

0 

0 .  oou 

1? 

1LA09 

0 

0.0000 

9 

3.1890 

0 

0.000 

13 

ILAB 

0 

0.0000 

38 

2.0521 

0 

0.000 

14 

ILADE 

0 

0.0000 

0 

0.0000 

0 

0.000 

15 

llAF 

0 

0.0000 

1 

1.0461 

0 

0.000 

• 

(portions  of 

file  omitted) 

374 

74PG0 

0 

0.0000 

21 

0.3569 

0 

0.000 

375 

74PH0 

1 

0.5088 

55 

0.3133 

0 

0.000 

376 

74PK0 

1 

0.3599 

16 

0.3382 

0 

0.000 

377 

74PL0 

1 

0.3872 

41 

0.1839 

0 

0.000 

378 

74PN0 

0 

0.0000 

27 

0.3416 

0 

0.000 

379 

74P99 

0 

0.0000 

8 

0.2856 

0 

0.000 

ON  LINE  NDl’ 

,  QUANTITY  MDl’ 

1628 

5.9763 
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Os  LINE  MKT,  QUANTITY  MRT  14477 
MEAN  MAIN!  HOLES  PER  FLYING  HOURS 


1.4991 


NWUC  MMH/FH 


1 

THRU 

0.6185 

2 

PREFL 

0.0366 

3 

BPO 

1.0070 

4 

HPO  1 

0.9742 

5 

HPO  2 

0.4255 

6 

HPO  3 

0.5208 

7 

PE  1 

0.6059 

8 

PE  2 

0.0000 

11 

1100 

0.0279 

12 

11A09 

0.0062 

13 

llAB 

0.0095 

14 

ilADE 

0.0000 

■ 

(portions  of  file  omitted) 

376 

74PK0 

0.0024 

377 

74PL0 

0.0125 

378 

74PN0 

0.0052 

379 

74P99 

0.0012 

TOTAL  MMH/FH 

(UNSCHEDULED)  8.12 

TOTAL  MMH/FH 

(SCHEDULED)  4.19 

PLANES  IN  NICS  QUEUE 


PLANE  BROKEN  LRU 


13 

158 

44A 

6 

158 

44A 

20 

158 

44A 

11 

158 

44A 

24 

158 

44A 

HANGER  QUEENS 


PLANE  BROKEN  LRUS 


1  158 

I  9  179 

I 

I  ******  (end  of  file) 


243  179  0  0 

158  0  0  0 
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RUN  INSTRUCTIONS 
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APPENDIX  G-  PUN  INSTRUCTICWS 


G.l.  MEQIANICS  OF  RIJNNING  THE  MODEL 

The  model  was  run  on  a  VAX  cluster  (VAX  11-785,  VAX  8650,  or  VAX  8800)  on 
a  VAX/VMS  operating  system.  The  following  procedures  should  be  used  to  run  the 
model. 

Before  running  the  model,  there  are  several  items  \diich  need  to  be  modified 
for  each  run.  These  items  should  be  checked  to  ensure  the  model  runs  with  the 
appropriate  inputs. 

FlSEaAT.FOR: 

a. )  Choose  vrtiich  aircraft  to  simulate,  F-15E  or  F-15C/D  MSIP 

b. )  Update  XBRK  probabilities.  XBRK  is  the  percentage  of  critical 

failures  which  will  be  counted  as  breciks 

c. )  Choose  correct  scenario  to  simulate,  peacetime,  surge,  or 

sustained.  Also  be  sure  to  select  the  correct  warmup  and  regular 
scenario 

d. )  If  any  changes  are  made  to  this  file,  be  sure  to  ccttpile  and  link 
F15EM.INP! 

a .  )  Update  MTBMIC  numbers 

b.  )  Update  critical  probabilities 

c .  )  Modify  spares  levels  if  needed 

F15ET.INP: 

Update  entire  file  if  needed 
F15E.DAT: 

a.)  Select  random  number  seed 

V\  \  Qal  or»1-  TKITT*  <?■!- >-vae»<-kH  .-\r»  cz-'r-krtavi 

c.)  Select  appropriate  M3OT1,QjEAR  statement  based  on  scenario  warmup 


To  ccnpile  the  fortran  data  file,  type  "FOR  "  and  tiie  data  file  name.  The 
extension  .FOR  is  assumed. 

FOR  F15EDAT 

You  will  get  an  object  file  F16EDAT.OBJ.  To  ccnpile  the  fortran  source  file, 
type  "FOR  "  and  the  source  file  name.  Again  the  extension  -FOR  is  assumed. 

FOR  F15E 

You  will  get  an  object  file  F15E.OBJ.  These  files  must  be  corpiled  every  time 
tl^e  file  is  changed.  The  data  file  F15EDAT.F0R  will  need  to  be  changed  for 
each  type  of  scenario.  T)ie  source  file  F15E.FOR  will  not  normally  need  to  be 
changed  to  rtin  different  scenarios.  After  ccnpilation  is  caiplete,  the  object 
files  need  to  be  linked. 
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To  link  the  object  files  for  SLAM,  type  "SLINK  "  and  the  name  of  the 
executable  file  you  want  and  the  object  file  names  separated  by  conmas.  The 
extensions  .OBJ  and  .EXE  are  assumed. 

SLINK  TRIALl  F15E,F15EDA.T 
You  will  get  an  executable  file  TRIAL1.EXE. 

To  begin  the  simulation,  type  "RSLAM  "  and  the  name  of  the  SLAM  network 
file  and  then  the  name  of  the  executable  file.  Itie  extensions  .DAT  and  .EXE 
cire  assumed. 

RSLAM  F15E  TRIALl 
The  simulation  has  begun. 

G.2.  MECHANICS  OF  SLAM 

This  model  stould  run  on  versions  of  SLAM  after  2.0.  There  is  one 
adjustment  to  the  model  which  may  be  necessary.  If  the  ccrtnon  block  in  the 
SLAM  FORTRAN  is  not  the  same  as  the  one  listed  below,  change  the  cannon  block 
in  the  INTLC  subroutine  in  the  F15E.POR  file  to  match  the  SLAM  FORTRAN.  If  you 
do  not  have  access  to  the  source  code  for  the  SLAM  FORTRAN,  contact  Pritsker  & 
Associates  to  determine  the  exact  coding  for  this  cannon  block. 


COMMDN/OCCMl  /  J JCDR,  KKNN ,  LLFIL,  LLRNK ,  LLTRY ,  MFEX ,  NNAMl ,  NNAM2 ,  NNAM3 , 

1 ,  NNAPO ,  NNAPT ,  NIIATR ,  NNF I L ,  N^mlY ,  TTDEG ,  TTCLR ,  TTF 1 N , 

2, TTSET,XXI(MMXXV)  .TTTS.TTTF 


Figure  G.l.  Cannon  Block  GCOIl  in  F-15E.P0R 


The  only  pirpose  of  this  contion  block  in  F15E.FOR  is  to  determine  the  end 
of  the  simulatLon  (TTFIN)  and  schedule  the  subroutines  DISPLY  and  LAST  to  occur 
after  the  simulation  is  complete.  The  alternative  method,  instead  of  using 
this  cannon  block,  is  to  change  the  model  fortran  file  by  scheduling  the 
subroutines  DISPLY  and  LAST  to  occur  at  the  end  of  the  simulation,  and  the 
input  statement  in  the  SLAM  network  file,  F15E,uAT,  must  also  iiave  Uiis  sarit! 
end  of  simulation  time.  This  method  is  inconvenient  since  it  is  easy  to  forget 
to  change  the  two  files  in  three  places  each  time  the  scenario  is  clieinged. 
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